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REAL  TIME  THREE  LAYER  OCEAN  MODEL 


Preface 


5 April  1976 


This  report  describes  an  ocean  model  which  is  part  of  the 
Acoustic  Signal  Generator  System  which  was  developed  at  the 
Naval  Surface  Weapons  Center,  White  Oak  Laboratory.  The  theoretical 
approach  for  this  task  was  originally  formulated  by  Michael  D.  Stern, 
The  material  should  be  of  interest  to  those  involved  in  acoustic 
modeling  for  systems  evaluation  and  training  purposes.  This  work 
was  performed  in  the  Signal  and  Digital  Processing  Branch  of  the 
Sensors  Division  and  was  funded  by  the  Naval  Sea  Systems  Command 
under  the  Acoustic  Data  Repository  Task. 
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REAL  TIME  THREE  LAYER  OCEAN  MODEL 

INTRODUCTION 

Figure  1 shows  the  Acoustic  Signal  Generator  System,  ASGS,  which 

was  developed  at  the  Naval  Surface  Weapons  Center,  White  Oak  Laboratory. 

It  is  a multi-minicomputer  system  which  simulates  various  types  of 

targets  such  as  submarines,  surface  ships,  and  torpedoes.  Analog 

signals  are  generated  which  correspond  to  the  output  of  various 

acoustic  receivers  or  sonobuoys.  The  system  is  capable  of  real  time 

problem  generation  with  two  targets  and  four  sonobuoys  within  a 

dynamic  geometry  situation.  This  requires  a real  time  ocean  model 

to  calculate  the  propagation  parameters  such  as  time  delays,  gains, 

and  angles  of  arrival  for  all  of  the  propagation  paths  that  exist 

between  the  targets  and  sensors. 

The  ASGS  ocean  model  is  a ray  trace  using  a three  layer  ocean 

with  a linear  sound  velocity  profile  specified  for  each  of  the  layers. 

This  model  computes  all  the  propagation  parameters  needed  by  the 

ASGS  to  produce  most  of  the  important  ocean  propagation  effects  such 
✓ 

as  shadow  zones,  multipath  interferences,  convergence  zones,  and 
doppler  effects.  A Newton-Raphson  technique  is  used  by  the  ocean 
model  to  calculate  the  propagation  parameters  for  the  latest 
target-sonobuoy  pair  positions  starting  with  the  results  from  their 
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last  positions.  This  technique  allows  a solution  update  rate  of 
approximately  two  seconds  for  two  targets  and  four  sonobuoys. 

This  report  explains  the  terminology,  theory,  and  operational 
details  of  the  ASGS  ocean  model.  Each  subroutine  of  the  model  is 
listed,  explained,  and  flow  charted, and  an  example  of  the  ocean 
model  output  is  presented. 

GRADIENTS  AND  TURNOVER  POINTS 

A particular  three  layer  ocean  is  described  by  specifying  the 
depth,  d,  and  the  sound  velocity,  v,  for  each  of  the  four  layer 
interfaces.  This  is  shown  in  Figure  2.  From  this  ocean  description 
the  sound  velocity  gradients  for  the  three  layers  can  be  computed 
using  the  following  expression. 

vi-l  " vi 

g±  = -*-= ; i - 1,  2,  and  3 (1) 

-i  - d. 


Since  the  gradient  of  each  layer  is  a constant,  an  acoustic  ray 
traveling  through  a layer  travels  a circular  arc  with  a radius  that 
is  a function  of  the  value  of  the  gradient  in  that  layer.  Ray 
paths  in  the  three  layer  ocean  are,  therefore,  made  up  of  connecting 
circular  segments. 

The  sign  of  the  gradient  in  a layer  determines  in  what  direction 
the  ray  will  bend  as  it  travels  in  the  layer.  A positive  gradient 
will  cause  the  ray  to  bend  upward,  while  a negative  gradient  will 
cause  the  ray  to  bend  downward.  A ray  may  obtain  total  reflection 
within  a layer,  which  means  it  will  change  direction  inside  the 
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FIG.  2 SPECIFICATION  OF  THREE  LAYER  OCEAN 
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layer  and  travel  back  toward  the  same  side  that  it  entered.  Rays 
may  also  strike  the  ocean  top  and  bottom  surfaces  and  be  reflected 
back  into  the  layer  from  which  they  came.  Both  of  these  types  of 
reflection  are  called  turnover  points  and  establish  the  top  and 
bottom  points  of  the  ray  path. 

Ray  paths  in  the  three  layer  ocean  are  also  periodic  in  nature 
because  they  repeat  their  form  each  time  the  ray  travels  between 
sets  of  turnover  points.  Some  typical  ray  paths  are  shown  in 
Figure  3. 

PROPAGATION  MODES  AND  RAY  PATHS 

The  numbering  convention  for  the  three  layer  ocean  model  is 
defined  so  that  the  layers  are  numbered  one,  two,  and  three  with 
the  top  and  bottom  surfaces  of  the  ocean  numbered  zero  and  four 
respectively.  This  numbering  scheme  is  used  in  defining  the 
acoustic  propagation  modes  that  can  exist  in  the  three  layer  ocean. 
There  are  ten  possible  propagation  modes  that  can  exist  in  a three 
layer  ocean,  but  there  can  be  many  ray  paths  within  each  mode. 

A mode  is  described  by  the  top  and  bottom  points  of  the  ray  paths 
in  the  mode.  The  top  of  the  mode,  T,  is  the  number  of  the  layer 
or  surface  in  which  the  ray  paths  turn  downward.  The  bottom  of 
the  mode,  B,  is  the  number  of  the  layer  or  surface  in  which  the 
ray  paths  turn  upward.  Figure  4 shows  examples  of  all  possible 
propagation  modes  that  can  exist  in  the  three  layer  ocean. 

For  any  particular  three  layer  ocean  the  consideration  of  the 
signs  of  the  gradients  in  the  layers  will  eliminate  some  of  the  ten 
possible  propagation  modes  that  can  exist.  Further  reductions  in 
the  number  of  modes  is  obtained  when  the  location  of  a particular 
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target-sonobuoy  pair  Is  considered.  An  example  of  determining 
the  possible  propagation  modes  for  a particular  three  layer  ocean 
with  a target-sonobuoy  pair  location  is  given  in  Appendix  A. 

The  ray  paths  within  a propagation  mode  are  uniquely 
characterized  by  three  parameters.  The  first  parameter,  N,  is  the 
number  of  half  cycles  contained  in  the  ray  path  between  the 
acoustic  source  and  receiver.  A half  cycle  is  defined  as  that  part 
of  a ray  path  which  lies  between  the  upward  and  downward  turnover 
points.  If  a ray  path  has  only  one  turnover  point,  it  has  zero 
half  cycles.  If  it  has  no  turnover  points,  its  number  of  half 
cycles  is  minus  one.  The  second  parameter,  D,  used  to  describe 
a ray  path  is  the  direction  at  which  the  ray  arrives  at  the  receiver. 
D equal  to  zero  means  an  upward  arriving  ray  while  D equal  to  one 
means  a downward  arriving  ray.  The  third  parameter,  S,  which 
characterizes  a ray  path  is  the  sign  of  the  derivative  of  its 
horizontal  range  between  the  source  and  receiver  with  respect  to 
the  parameter  z which  is  discussed  in  the  next  section.  S equal  to  zero 
means  a positive  derivative,  while  S equal  to  one  means  a negative 
derivative.  Some  examples  of  different  types  of  ray  paths  are 
shown  in  Figure  5 . 


Z LIMITS  AND  MINIMUM  AND  MAXIMUM  NUMBER  OF  HALF  CYCLES 

For  every  ray  path  that  connects  a target  and  sonobuoy  in  the 
three  layer  ocean,  a constant  can  be  defined  which  uniquely 
distinguishes  that  ray  path  from  any  other.  This  constant  is  called 
z and  is  defined  as 


z 


vp 

sin  a. 


(2) 
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FIG.  5 EXAMPLES  OF  TYPES  OF  RAY  PATHS 


14 


LA  ZJLaaaH 


where  v - sound  velocity  at  a point  on  the  ray 

ap  * angle  that  the  ray  makes  with  the  vertical  at  the  point 
on  the  ray  path. 

Each  propagation  mode  that  exists  for  a particular  three  layer  ocean 
has  limits  which  bound  the  value  that  z can  obtain  for  any  ray  path  in 
the  mode.  These  limits  are  based  on  the  fact  that  a ray  with  a value 
of  z cannot  enter  a region  for  which  the  sound  velocity  is  greater  than 
that  value  of  z.  This  maximum  value  of  sound  velocity  is  encountered 
by  a ray  at  the  turnover  points  where  ap  equals  ninety  degrees  and  vp 
equals  z.  Examining  the  layers  or  surfaces  in  which  these  turnover 
points  occur  supplies  the  limits  on  the  value  of  z.  The  maximum  value 
of  z is  the  smaller  of  the  following  two  quantities.  The  first  is  the 
largest  sound  velocity  in  the  top  layer  of  the  propagation  mode  if  the 
top  is  a layer  or  infinity  (or  a conveniently  large  value)  if  the  top 
is  a surface.  The  second  is  the  largest  sound  velocity  in  the  bottom 
layer  of  the  propagation  mode  if  the  bottom  is  a layer  or  infinity 
(or  a conveniently  large  value)  if  the  bottom  is  a surface.  Finding 
the  minimum  value  of  z is  more  involved  and  takes  into  account  the 
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sound  velocities  encompassed  by  the  propagation  mode.  The  minimum  value 
of  z is  the  larger  of  the  following  sound  velocities;  the  smallest  sound 
velocity  from  the  top  layer  of  the  propagation  mode,  the  smallest  sound 
velocity  from  the  bottom  layer  of  the  propagation  mode,  the  sound 
velocity  at  the  target  depth,  the  sound  velocity  at  the  sonobuoy  depth, 
and  the  sou^d  velocities  of  the  layer  interfaces  encompassed  by  the 
propagation  mode. 

After  the  z limits  have  been  found  for  a propagation  mode,  an 
estimate  of  the  minimum  and  maximum  number  of  half  cycles  which  can 
exist  for  the  different  ray  paths  in  the  mode  can  be  made.  Two  half 
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cycle  horizontal  ranges  can  be  computed  from  these  two  z limits  using 
the  formulas  explained  in  the  next  section.  Dividing  the  actual 
horizontal  range  that  exists  between  the  target  and  sonobuoy  by 
the  two  half  cycle  horizontal  ranges  results  in  two  values  which 
are  the  minimum  and  maximum  number  of  half  cycles  for  the  mode. 
Subtracting  one  from  the  minimum  number  of  half  cycles  will  take 
into  account  the  end  parts  of  the  ray  path  which  travel  from  a 
turnover  point  to  the  target  and  sonobuoy  and  are  not  full  half 
cycles . 

THREE  LAYER  OCEAN  MODEL  EQUATIONS 

The  equations  used  in  the  calculations  for  the  three  layer  ocean 
model  are  derived  in  Appendix  B.  These  equations  are  repeated  in 
this  section  of  the  report  and  then  expanded  to  cover  all  the  parts 
of  a ray  path  as  it  travels  from  the  target  to  the  sonobuoy.  The 
three  layer  ocean  model  equations  are  as  follows: 

Horizontal  Range  of  a Circular  Segment  of  a Ray  Through 


a Layer: 


HRG  = 


z2  - vi-l 


/ 2 I 

Z - v4 


Slant  Range  of  a Circular  Segment  of  a Ray  Through  a Layer: 


-l/i-1- 


.-l/i- 


SRG  = — [sin-J-(-^li)  - sin-  (— ) ] 
g,  z z J 


Derivative  of  HRG  with  respect  to  z: 


d(HRG)  _z_  , 1 

Ary  n>  ' / 


dz  g 


1 ^-x 


f 2 2 

Z -V  , 
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Angle  of  Arrival  of  a Ray  Path  at  a Sonobuoy: 

ANG  = sin'1  (YA°npbuoy)  (6) 

z 

Time  Delay  of  a Circular  Segment  of  a Ray  Through  a Layer: 


TD  = 


if[ln(' 

si 


'i-1 


/~2  2 
- /z  -V . 


r)  - ln(« 


i-1 


r 2 2 

z - v Z -V. 


=)] 


(7) 


Power  Gain  of  a Ray  Path  at  the  Sonobuoy: 


GAIN  = 


TARGET 


. d(HRG) 
HRG  ~ d — 


2 • /z2 
TARGET  z 


- V 


SONOBUOY 


(8) 


Any  ray  path  in  the  three  layer  ocean  can  be  decomposed  into 
circular  segments  of  up  to  three  different  types.  The  first  type  is  a 
segment  which  travels  from  one  point  to  another  in  the  same  layer 
without  a turnover  point.  The  second  type  is  a segment  which  travels 
from  one  point  in  a layer  to  another  point  in  the  same  layer  where 
one  of  the  points  is  a downward  turnover  point.  The  third  type  is  a 
segment  which  travels  from  one  point  in  a layer  to  another  point 
in  the  same  layer  where  one  of  the  points  is  an  upward  turnover  point. 
The  points  described  for  the  three  types  of  segments  may  be  a 
combination  of  target  position,  sonobuoy  position,  turnover  points, 
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and  layer  interface  points, 
are  given  in  Figure  6. 


Examples  of  these  types  of  segments 


Equations  3,4,  5 and  7 are  used  directly  for  the  Type  1 circular 
segment  with  v1_1  and  taken  at  the  top  and  bottom  points  respectively. 
The  value  of  i equals  the  layer  number  in  which  the  segment  is 
located.  The  Type  2 circular  segment  equations  are  as  follows: 

n ; 

/z  - V. 


HRG-,  = - 

c. 


2 

ri 


Si 


SRG, 


.-l/i 


i7['  sin  (^)] 


d<HRG2}  z_. 1_ 


"35" 


(9) 


(10) 


(11) 


TD„  = — 

2 g± 


(12) 


As  before  v^_-^  and  v^  are  taken  at  the  top  and  bottom  points  of  the 
circular  segment  respectively,  and  i equals  the  layer  number.  Equations 
3,  4,  5 and  7 easily  reduce  to  the  Type  2 and  3 equations  above  by 
noting  that  the  value  of  z equals  the  sound  velocity,  v^  at  the 
Type  2 downward  turnover  point,  and  likewise  equals  the  sound  velocity, 
v^,  at  the  Type  3 upward  turnover  point. 

The  propagation  parameters  (HRG , d(HRG)/dz,  TD,  and  SRG ) associated 
with  a ray  path  are  computed  by  summing  the  results  from  the  different 
circular  segment  parts  which  make  up  the  total  ray  path.  This  is 
accomplished  in  the  three  layer  ocean  model  by  first  dividing  the  ray 
path  into  three  distinct  parts  each  of  which  is  composed  of  the  Type 
1,  2,  and  3 circular  segments.  The  propagation  parameters  for  each 

I of  the  three  parts  is  then  calculated  separately  and  finally  combined 

to  arrive  at  the  total  parameter  values.  The  first  part  of  the  ray 
path  is  the  C part  which  is  the  half  cycle  portion  of  the  ray  path. 

The  second  is  the  A part  which  is  the  portion  of  a half  cycle  from  the 
top  of  the  ray  path  to  the  sonobuoy.  The  third  is  the  B part  which  is 
the  portion  of  a half  cycle  from  the  top  of  the  ray  path  to  the  target. 
MultipZying  the  results  from  the  C part  calculations  by  the  number  of 
half  cycles  in  the  ray  path  and  then  adding  on  the  results  of  the 
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calculations  for  the  A and  B parts  produces  the  total  ray  path  propaga- 
tion parameters.  Examples  of  this  procedure  are  shown  in  Figure  7. 

Note  from  equations  (6)  and  (8)  that  the  calculation  of  the  values  of 
ANG  and  GAIN  are  one  step  operations  and  do  not  require  the  A,  B,  and  C 
computations . 

NEWTON-RAPHSON  CALCULATION 

A Newton-Raphson  technique  is  used  in  the  three  layer  ocean  model 
to  find  the  ray  paths  which  exist  between  a target  and  sonobuoy.  This 
is  accomplished  by  starting  with  a value  of  z for  a possible  ray  path 
and  comparing  the  calculated  value  of  horizontal  range  to  the  actual 
horizontal  range.  The  value  of  z is  then  adjusted  based  on  the  amount 
of  error  in  horizontal  range  and  the  calculated  value  of  the  derivative 
of  horizontal  range  with  respect  to  z.  This  calculation  is  expressed  as 


ZNEW  " zOLD 


+ (Actual  HRG  - Calculated  HRG ) (lj) 


Calculated 


d (HRG ) 
dz 


This  new  value  of  z can  then  be  used  to  further  reduce  the  error.  This 
calculation  is  repeated  until  the  error  reaches  some  allowable  value 
such  as  +1/8  meter.  Since  the  target  position  does  not  change  appreciably 
from  one  pass  through  the  ocean  program  to  the  next,  the  last  value  of 
z for  a ray  path  can  be  saved  and  used  as  its  starting  point  for  the 
Newton-Raphson  calculation.  Only  a few  loops  through  the  calculation 
are  required  to  meet  the  allowable  error.  New  ray  paths  which  did  not 
exist  on  the  preceding  pass  through  the  ocean  programs  must  start  with 
the  values  of  the  z limits  for  the  Newton-Raphson  calculation,  which 
may  require  many  loops  to  achieve  the  allowable  error  in  horizontal 
range . 
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T = C + A + (C  - B) 


FIG.  7 TOTAL  RAY  PATH  COMPOSITION  AND  CALCULATION 
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During  the  Newton-Raphson  calculation  there  are  three  tests  that 
the  value  of  z for  the  ray  path  must  pass  to  remain  a valid 
solution.  The  first  is  that  the  value  of  z for  the  ray  path  must 
not  exceed  the  maximum  z limit.  The  second  test  is  that  the  value 
of  z must  not  equal  or  go  below  the  minimum  z limit.  The  third  test 
is  that  the  sign  of  the  derivative  of  the  horizontal  range  of  the 
ray  path  with  respect  to  z must  not  change  sign. 

RAY  PATH  CODE  WORDS 


Sixteen  bit  code  words  are  used  in  the  three  layer  ocean  model 
to  represent  the  ray  paths  and  save  core  memory  space.  The  following 
convention  is  followed  for  a code  word: 


BITS 

0 through  2 
3 through  5 
6 

7 through  14 
15 


DATA 

T 

B 

D 

N 

S 


DATA  RANGE 

0 to  3 

1 to  4 
0 to  1 

-1  to  127 
0 or  1 


All  of  the  three  layer  ocean  model  equations  can  be  calculated  for 
a ray  path  given  its  code  word  and  value  of  z. 

GENERAL  PROGRAM  OPERATION 


The  three  layer  ocean  model  operates  using  the  following 
general  steps: 

1.  Compute  the  gradients  of  the  three  layers  if  any  of  the 
sound  velocities  at  the  layer  interfaces  have  changed. 

2.  Find  the  possible  propagation  modes  for  the  particular 
target-sonobuoy  pair  that  is  being  considered. 
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3.  Find  the  limits  on  the  value  of  z for  each  of  the  possible 
propagation  modes. 

4.  Compute  the  minimum  and  maximum  number  of  half  cycles  for 
each  of  the  possible  propagation  modes. 

5.  Form  a table  containing  a code  word  and  address  of  the  z 
limits  for  each  ray  path  that  may  exist.  This  table  is  desig- 
nated the  TSPCW  table  and  is  explained  further  in  Appendix  C. 

6.  Using  the  Newton-Raphson  calculation  compute  the  propagation 
parameters  for  all  the  valid  entries  in  a table  which  contains 
a code  word  and  z value  for  every  ray  path  that  produced  a 
valid  solution  on  the  last  pass  through  the  program.  This 
table  is  designated  the  mnLPW  table  and  is  explained  further 
in  Appendix  C. 

7.  Compute  the  propagation  parameters  for  all  the  entries  in  the 
TSPCW  table  which  were  not  also  included  in  the  mnLPW  table. 

This  computation  also  uses  the  Newton-Raphson  calculation  but 
it  starts  from  the  z limit  values.  Valid  solutions  are  stored 
in  the  mnLPW  table  with  their  values  of  z for  use  on  the  next 
pass  through  the  programs. 

8.  Examine  the  propagation  gains  for  all  the  valid  solutions 
during  steps  7 and  8 and  store  the  sixteen  greatest  gain 

ray  paths  in  a table  with  the  rest  of  their  propagation  para- 
meters. This  table  is  designated  the  mlBST  table  and  is  further 
explained  in  Appendix  C. 

THREE  LAYER  OCEAN  MODEL  SUBROUTINES 


The  three  layer  ocean  model  consists  of  a number  of  subroutines 

written  for  the  Data  General  Super  Nova  minicomputer.  All  of  the  sub- 
routines are  programmed  in  assembly  language  because  of  the  real  time 

constraint  on  the  AS GS  problem  generation.  Figure  8 shows  the 

24 


1 


NSWC/WOL/TR  75-115 


EXECUTIVE 

1 

SUBROUTINE 

0NL03 

1 

(Q) 

PROPM 


X-  USES 
FPMP 

SUBROUTINES 


O-  USED  ONLY 
IN  NON 
REAL  TIME 
VERSION 


ZLIMX 


MNMXx 


NRMD* 


GRADSX 


SUBROUTINE 
CALLED  BY 
SUBROUTINE 
(Q) 


NEXT  SUBROUTINE 
CALLED  BY 
SUBROUTINE 
(Q) 


CONVENTION 


FQ2 


FIG.  8 PROGRAM  FLOW 
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program  flow  through  the  different  subroutines.  Appendix  C 
contains  a description,  flow  chart,  and  listing  for  each  of  the 
subroutines . 

The  PROPM  subroutine  is  called  for  each  target-sonobuoy  pair 
This  results  in  the  calculation  of  all  the  ocean  propagation 
parameters  based  on  the  present  positions  of  the  target  and 
sonobuoy . 

EXAMPLE  OF  THE  OUTPUT  FROM  THE  THREE  LAYER  OCEAN  MODEL 

The  three  layer  ocean  model  has  an  optional  non  real  time  mode 
which  allows  complete  documentation  of  the  ocean  model  results. 

All  of  the  calculated  values  for  each  ray  path  are  printed  out 
at  specified  intervals  of  target-sonobuoy  horizontal  range.  An 
example  of  this  documentation  is  given  in  Appendix  D using  the 
sound  velocity  profile  and  target  and  sonobuoy  depths  specified 
in  Appendix  A.  An  average  propagation  loss  curve  is  given  in 
Figure  9 using  this  same  data.  Frequency  dependent  propagation 
effects  are  not  calculated  by  the  three  layer  ocean  model,  but 
they  are  included  using  digital  filtering  functions  elsewhere 
in  the  ASGS  Executive  Program. 
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FIG.  9 AVERAGE  PROPAGATION  LOSS  CURVE 
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APPENDIX  A 

EXAMPLE  OF  CALCULATING  PROPAGATION  MODES 

The  following  depths  and  sound  velocities  are  given  for  a 
three  layer  ocean. 

dQ  = 0 meters 

d.^  = 100  meters 

d2  = 500  meters 

d^  = ^000  meters 
Vq  = 1490  meters/sec 
v^  = 1496  meters/sec 
v2  = i486  meters/sec 
v^  = 1520  meters/sec 


The  target  depth  is  200  meters,  which  places  it  in  the  second 
layer.  The  sonobuoy  depth  is  50  meters,  which  places  it  in  the 
first  layer.  The  gradients  are  computed  using  Equation  (1)  to  be 
the  following  values: 

g1  = +.06 

g2  = -.025 
g3  = +.0097 

Since  the  ocean  surface  and  the  negative  gradient  second  layer 
cause  downward  turnover  points,  the  possible  tops  of  modes  are  0 and  2. 

A-l 

J 
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Since  the  ocean  bottom  and  the  positive  gradient  first  and  third  layers 
cause  upward  turnover  points,  the  possible  bottoms  of  modes  are  1,  3 
and  4.  Combining  these  tops  and  bottoms  with  the  obvious  restrictions 
that  a too  number  must  be  smaller  than  a bottom  number  gives  the 
following  possible  propagation  modes  in  the  form  of  (T,  B). 

Mode  1 = (0,  1) 

Mode  2 = (0,  3) 

Mode  3 = (0,  4) 

Mode  4 = (2,  3) 

Mode  5 = (2,  4) 

Now  considering  the  target  and  sonobuoy  locations,  Modes  1,  4 and  5 
can  be  eliminated  because  those  modes  do  not  encompass  both  the 
target  and  sonobuoy  and  could  not  contain  a ray  path  between  them. 

This  procedure  has  reduced  the  number  of  possible  propagation  modes 
from  ten  to  five  and  finally  to  two. 


NSWC/WOL/TR  75-115 


APPENDIX  B 

DERIVATION  OF  THREE  LAYER  OCEAN  MODEL  EQUATIONS 


General  Conventions  and  Relationships 

Figure  B1  shows  an  acoustic  ray  passing  through  a layer  with  a 
constant  sound  velocity  gradient.  The  ray  enters  at  point  P-^  and 
leaves  at  point  P2 . The  coordinates  which  uniquely  describe 
these  two  points  are 


P-L  = F(x1,  y1,  v]_,  t1,  ax) 


P2  = F(x2,  y2,  v2,  t2,  a2) 


where  x and  y are  the  position,  v the  sound  velocity,  t the  time, 
and  a the  angle  that  the  ray  makes  with  the  vertical.  The  ray 
passing  through  points  P^  and  P2  is  also  uniquely  described  by  the 
relationship 


sin  a 


(B.l) 


where  z is  a constant  for  any  point  on  the  ray. 

The  sound  velocity  gradient  of  the  layer  through  which  the  ray 


passes  is  a constant  given  by 


_ _ dv  _ V1  ~ v2 
6 dy  d1  - d2 


( B.  2 ) 
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Other  important  relationships  that  are  useful  are  derived  by 
examining  the  differential  part  of  the  ray  in  Figure  Bl. 
These  are  expressed  as: 


cot  a = ^ 
dx 


(B.3) 


dS 


+ (dy)2 


(B.4) 


The  following  trigonmetric  relationship  is  also  needed  in  the  later 
derivations . 

/ 2 

cos  a = / 1 - sin  a 


Substituting  using  Equation  (B.l)  yields 


cos  a 


which  can  be  expressed  as 


cos  a 


z 


(B.5) 


Horizontal  Range 

This  section  derives  the  expression  for  the  horizontal  range 
traveled  by  a ray  as  it  passes  through  a layer  with  a constant 
sound  velocity  gradient.  This  ray  is  shown  in  Figure  Bl  as  entering 
at  point  and  leaving  at  point  P2>  The  horizontal  range  is  taken 
in  the  x direction  and  is  expressed  as 


B-3 
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HRG 


Substituting  using  Equation  (B.3)  yields 


y2 


HRG  = J ^ ( 


cot  a 


) dy 


Differentiating  Equation  (B.l)  leads  to  the  following  useful 
relationship 


d (sin  a)  = — 
z 

cos  a • da  = — ( 

z v 

Substituting  Equations  (B.2)  and  (B.7)  into  Equation  (B.6)  allows 
the  horizontal  range  to  be  expressed  as 


HRG  = / 2 ( 


z • cos  a 


g 


cot  a 


da 


which  reduces  to 


NSWC/WOL/TR  75-H5 


Integrating  Equation  (B.9)  yields 


HRG  = - - (cos  a„  - cos  an ) 

g 2 1 


(B.10) 


which  reduces  to  a more  convenient  form  using  Equation  (B.5) 


HRG 


(B.ll) 


Derivative  of  Horizontal  Range  with  Respect  to  z 

The  derivative  of  the  horizontal  range  with  respect  to  z is 
used  in  the  ray  path  calculations.  Differentiating  Equation  (B.ll) 
with  respect  to  z yields  the  following 


d (HRG ) = z 
dz  g 


(B . 12 ) 


Time  Delay 

The  time  delay  that  a ray  experiences  as  it  passes  through 
a layer  is  the  next  quantity  to  be  derived.  The  following 
differential  equation  expresses  the  sound  velocity  at  a point. 


v 


ds 

dt 


(B.13) 


Using  Equations  (B.4)  and  (B.13)  produces  the  differential  equation 
for  the  time  delay. 


dt  = 


/dx2  + 


dy 


(B.14) 


NSWC/WOL/TR  75-115 


i 


dt  = 


dy2(l  + Si,) 

t 


which  becomes  using  Equation  (3) 

, V 1 + 

V » 


dt 


( — - — ) 

^cot  a 


This  then  reduces  to 


dt  = 


.2 JL 


v • cos  a 


(3.15) 


using  trigonmetric  identities. 

Substituting  Equations  (B.l),  (B.2),  and  (B.7)  into  Equation  (B. 15 ) 
produces  the  following  expression. 


dt  = 


sin  a • g 


da 


(B.16) 


Using  the  following  steps  to  integrate  Equation  (B.16)  yields  the 
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t = ± [ln(- 


1 - cos  a, 

' t: 

sin  a~ 


■)  - ln(- 


1 - cos 
' sin  a. 


Substituting  Equations  (B.l)  and  (B.5)  into  Equation  (B.17)  and 
then  rearranging  terms  yields  the  final  form  of  the  expression 
for  the  time  delay. 


t = - [ In  (- 


/ 2 2 
z - v1 


•)  - In  (- 


z - / z 


2 - v. 


Circular  Relationship 

This  section  shows  that  the  ray  path  travels  a circular  path 
in  a layer  with  a constant  sound  velocity  gradient.  For  convenience 
the  point  P-j^  can  be  taken  as  the  point  (0,0)  and  point  ?2  as  point 
(x,  y).  Equation  (B.2)  then  reduces  to 


g = I 1 ~ V2 

s -y 


This  can  then  be  rearranged  into  the  following  form 


v2  = vi  + g * y 


Substituting  Equation  (B.19)  into  Equation  (B.ll)  yields 


z2  - C vx  + g • y)2 


p flMril 


X 


(B. 20 ) 


NSWC/WOL/TR  75-115 


Rearranging  terms  and  squaring  the  results  produces 
( x - 

Equation  (B.21)  is  a 


/ 


2 2 

Z - 


z2  , V1 ,2 

T - (y  + 

g 


g 


circle  with  the  following  values 


(B.21) 


(B.  22  ) 


(B.23) 


(B.24) 


where  R is  the  radius  and  point  (xq,  yQ ) is  the  center  of  the  circle. 
Slant  Range 

The  slant  range  of  the  ray  traveling  through  the  layer  is 
easily  expressed  since  it  is  the  arc  of  a circle. 

SLRG  = R(ax  - a2)  (B.25) 

Substituting  with  Equation  (B.22)  and  the  inverse  of  Equation  (B.l) 
then  yields  the  final  form  for  the  slant  range  expression. 


SLRG  = |(sin"1(^l)  - sin-1  (— ) ) 

o Z Z 


(B.26) 
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Intensity 

Figure  B2  is  used  to  illustrate  the  intensity  calculation.  The 
intensity  at  the  receiver  is  related  to  the  intensity  at  the  source 
by  the  inverse  ratio  of  the  two  areas  subtended  by  the  two  rays  that 
pass  through  points  A and  B.  This  is  expressed  as 


IR  _ dAS 


(B. 27) 


The  incremental  area  of  the  circular  segment  subtended  by  the  two 
rays  around  point  A is  expressed  as 


dAs  = 2*  • po  . ro  • das 


(B.28) 


Substituting  for  pQ  yields 


dAc  = 2 tt  • r « sinac'dac 

o O So 


(B. 29 ) 


The  circular  area  formed  by  these  two  rays  at  point  B is  expressed  as 


dAp  = 2tt  • r • dh 


(B.30) 


where  r is  the  horizontal  range.  Substituting  for  dh  yields 


dAp  = 2 tt  • r • cos  a^'dr 


(B.31) 
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which  can  be  rewritten  as 


dAp  = 2n  • r • cos  a 


I dr 
R 1 da0 


(B.32) 


The  derivative  can  be  further  expanded  into 

S 


dr 

da„ 


dr  | _ | dz 

dz  ' da0 


(B. 33) 


Differentiating  Equation  (B.l)  with  respect  to  v produces 


_VS 

d(sin  aQ)  = — y dz 
5 z 


(B.3^) 


which  equals 


'VS 

cos  as  • das  = — y dz 


(B. 35 ) 


Rearranging  terms  yields 


dz 

das 


• cos  ag 


v 


S 


(B.  36 ) 


Therefore  Equation 


(B.33)  becomes 


dr  _ | dr | 
dag  ' dz ' 


cos  a. 


« 

(B.  37 ) 
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Substituting  Equation  (B . 37 ) into  Equation  (B.32)  and  then  sub- 
stituting the  resulting  expression  along  with  Equation  (B.29)  into 
(B.27)  yields 


sin  as  • dag 


cos  a. 


r • cos  aT 


Using  Equation  (B.l)  and  (B.5)  reduces  the  preceding  equation  to 
the  following  form 


• / z2  - vR2  ■>  /z2 


If  the  intensity  of  the  source  is  referenced  to  one  meter,  then 'the 
final  form  of  the  equation  becomes 


VR2  • - vs2 
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APPENDIX  C 

DESCRIPTIONS,  FLOWCHARTS,  AND  LISTINGS  OF  SUBROUTINES 

The  descriptions  of  the  subroutines  used  in  the  three  layer 
ocean  model  are  standarized  into  the  form  shown  in  Table  Cl. 

The  data  used  in  the  descriptions,  flow  charts,  and  listings  of 
the  subroutines  in  Sections  Cl  through  C22  of  this  appendix 
are  consistent  to  allow  easy  examination  and  understanding  of  the 
ocean  model  operation.  A list  of  the  data  used  in  the  subroutines 
is  given  in  Table  C2. 


I 


C-l 
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TABLE  Cl 


1.  PURPOSE  OF  THIS  SUBROUTINE 

2.  PROGRAMS  THAT  CALL  THIS  SUBROUTINE 

3.  SUBROUTINE  CALLING  SEQUENCE 

4.  OTHER  SUBROUTINES  CALLED  BY  THIS  SUBROUTINE 

5.  DATA  USED  BY  THIS  SUBROUTINE 

6.  DATA  COMPUTED  BY  THIS  SUBROUTINE 

7.  FLOW  CHART 
3.  LISTING 

9 . IMPLEMENTATION  NOTES 
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ACNS1 

ADV1 

ANAR1 

ARG1 

ATM1 

A1CW 

A1HR 

A1MM 

A1PCT 

A1PP 


TABLE  C2 
List  of  Data 

Fractional  part  of  the  bottom  loss  which  is  not  a function 
of  the  angle  that  the  ray  path  makes  with  the  bottom. 
Calculated  value  of  the  derivative  of  the  horizontal 
range  with  respect  to  z for  that  part  of  a half  cycle  of 
a ray  path  from  the  top  of  the  half  cycle  to  the  sonobuoy. 

Sine  of  the  angle  of  arrival  of  the  ray  path  at  the  sonobuoy. 
Calculated  value  of  the  horizontal  range  for  that  part  of  a 
half  cycle  of  a ray  path  from  the  top  of  the  half  cycle 
to  the  sonobuoy. 

Calculated  value  of  the  time  delay  for  that  part  of  a half 
cycle  of  a ray  path  from  the  top  of  the  half  cycle  to  the 
sonobuoy . 

Table  which  contains  a ray  path  partial  code  word  and  the 
address  of  its  z limits  in  A1Z1  for  each  mode  in  A1PP. 

Actual  horizontal  range  between  the  target  and  sonobuoy. 

Table  which  contains  the  minimum  and  maximum  number  of 
ray  path  half  cycles  that  can  exist  between  the  target 
and  sonobuoy  for  each  mode  in  A1PP. 

Number  of  modes  in  A1PP. 

Table  which  contains  the  same  data  as  UDGDT  minus  the 
propagation  modes  eliminated  by  the  TSPP  and  ZLIM  subroutines. 
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TABLE  C2  (Cont. ) 


A1ZL  - Table  which  contains  the  minimum  and  maximum  limits 
which  bound  the  value  of  z for  each  propagation  mode 
in  A1PP . 

BBMXF  - Flag  which  shows  that  a ray  path  exceeded  its  maximum  z limit, 

BCNS1  - Fractional  amount  of  bottom  loss  which  is  multiplied  by  a 
function  of  the  angle  that  the  ray  makes  as  it  strikes  the 
bottom. 

BDV1  - Calculated  value  of  the  derivative  of  the  horizontal  range 
with  respect  to  z for  that  part  of  a half  cycle  of  a ray 
path  from  the  top  of  the  half  cycle  to  the  target. 

BGDAT  - First  word  in  the  central  data  base  of  the  NRMD  subroutine. 

BMBFG  - Flag  which  shows  that  a ray  path  went  below  its  minimum 
z limit . 

BOMFG  - Flag  which  shows  that  a ray  path  solution  is  invalid. 

BRG1  - Calculated  value  of  the  horizontal  range  for  that  part  of. 

a half  cycle  of  a ray  path  from  the  top  of  the  half  cycle 
to  the  target. 

BTAN1  - Sine  of  the  angle  of  arrival  of  the  ray  path  as  it  strikes 
the  bottom  of  the  ocean. 

BTM1  - Calculated  value  of  the  time  delay  for  that  part  of  a half 
cycle  of  a ray  path  from  the  top  of  the  half  cycle  to  the 
target . 

3TNUM  - Number  of  the  layer  or  surface  in  which  the  ray  path  being 


calculated  turns  upward. 
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TABLE  C2  (Cont.) 


CDV1  - 


CODEW 

CRG1 


CTM1  - 


DIRMD  - 


DLRG1  - 


DVBBF  - 


DVP 


FDV1  - 


FN1SK  - 


FN2SK  - 


Calculated  value  of  the  derivative  of  the  horizontal  range 
with  respect  to  z for  a half  cycle  part  of  a ray  path. 

Code  word  for  the  particular  ray  path  being  calculated. 
Calculated  value  of  the  horizontal  range  for  a half  cycle 
part  of  a ray  path. 

Calculated  value  of  the  time  delay  for  a half  cycle  part 
of  a ray  path. 

Direction  at  which  the  ray  path  being  calculated  arrives 
at  the  sonobuoy.  A zero  value  means  upward;  a one  value 
means  downward. 

The  amount  of  error  between  the  calculated  and  actual 
horizontal  range  which  causes  the  Newton-Raphson  calculation 
to  end. 

Flag  which  shows  that  the  sign  of  the  derivative  of  the 
horizontal  range  with  respect  to  z has  changed. 

Derivative  of  the  horizontal  range  with  respect  to  z 
intermediate  computation  table  formed  by  the  FIN1  subroutine. 
Corrected  value  of  TDV1  which  eliminates  the  calculation 
of  zero  derivatives  and  false  caustic  errors. 

Flag  which  is  set  to  a one  when  the  A and  B parts  of  a half 
cycle  are  to  be  computed  along  with  the  C part. 

Flag  which  is  set  to  a one  when  the  calculation  of  the  ray 
path  time  delay  is  to  be  included  along  with  that  of  the 
horizontal  range  and  its  derivative. 
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TABLE  C2  (Cont.) 


FUDGE  - A quantity  which  is  used  to  calculate  FDV1  based  on  the 
value  of  TDV1. 

GAIN1  - Propagation  gain  (voltage  gain)  of  a ray  path  for  a 
value  of  z. 

GDTBL  - Table  which  contains  the  sound  velocity  gradients  of  the 
three  layer  ocean. 

HRRH1  - Actual  horizontal  range  between  the  target  and  sonobuoy. 

LYDPP  - Table  which  contains  the  depths  of  the  layer  interfaces 
of  the  three  layer  ocean. 

LYVEL  - Table  which ' contains  the  sound  velocities  at  the  layer 
interfaces  of  the  three  layer  ocean. 

mnBMS  - Table  which  contains  addresses  of  locations  in  mnLPW  which 
are  vacant  and  ready  for  new  ray  path  information. 

mnLPW  - Table  which  contains  a code  word  and  z value  for  each  ray 
path  that  existed  between  the  target  and  sonobuoy  on  its 
preceding  pass  through  the  three  layer  ocean  subroutines. 

mnNBM  - Number  of  addresses  in  mnBMS . 

mnIJLP  - Number  of  valid  code  words  in  mnLPW. 

mlBST  - Table  which  contains  the  following  information  for  each 
of  the  strongest  ray  paths  that  exist  between  the  target 
and  sonobuoy:  Code  word,  time  delay,  gain,  angle  of  arrival, 

horizontal  range,  address  of  z limits,  and  z value. 
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ml MBS  - 
MAX LI  - 

NONRL  - 

NUMCY  - 
RGP 

SDVP  - 

SGNDV  - 

SLYA  - 
SLY1  - 
SNSQ1  - 
. SnXH  - 
SRGP  - 

STMP  - 

SVLA  - 
SVL1  - 
TDVP  - 


TABLE  C2  (Cont. ) 

- Number  of  ray  paths  in  mlBST. 

- Maximum  value  of  z which  is  used  in  the  standard  calculations. 
Beyond  MAXL1, approximations  are  used  in  the  FIN1  subroutine. 

- Number  of  Newton-Raphson  calculation  loops  yet  to  be 
completed. 

- Number  of  half  cycles  for  the  ray  path  being  calculated. 

- Horizontal  range  intermediate  computation  table  formed  by 
the  FIN1  subroutine. 

- Sonobuoy  horizontal  range  derivative  intermediate 
computation  formed  by  the  FIN1  subroutine. 

- Sign  of  the  derivative  of  the  horizontal  range  with 
respect  to  z for  the  ray  path  being  calculated. 

- Number  of  the  ocean  layer  in  which  the  target  is  located. 

- Number  of  the  ocean  layer  in  which  the  sonobuoy  is  located. 

- Square  of  the  sound  velocity  at  the  sonobuoy. 

- Sonobuoy  n ' s position  (X,  Y,  Z). 

- Sonobuoy  horizontal  range  intermediate  computation  formed 
by  the  FIN1  subroutine. 

- Sonobuoy  time  delay  intermediate  computation  formed  by  the 
FIN1  subroutine. 

- Sound  velocity  at  the  target. 

- Sound  velocity  at  the  sonobuoy. 

- Target  horizontal  range  derivative  intermediate  computation 
formed  by  the  FIN1  subroutine. 
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TDV1 

TGSQ1 

TMP 

. TmXH 
TPNUM 

TRGP 

TRG1 

TSIBS 


TSNIB 

TSNPW 

TSPCW 


TABLE  C2  (Cont . ) 

Calculated  value  of  the  derivative  of  the  horizontal 
range  with  respect  to  z for  a value  of  z for  a ray  path. 
Square  of  the  sound  velocity  at  the  target. 

Time  delay  intermediate  computation  table  formed  by  the 
FIN1  subroutine. 

Target  m' s position  (X,  Y,  Z). 

Number  of  the  layer  or  surface  in  which  the  ray  path  being 
calculated  turns  downward. 

Target  horizontal  range  intermediate  computation  formed 
by  the  FIN1  subroutine. 

Calculated  value  of  horizontal  range  for  a value  of  z for 
a ray  path. 

Table  which  contains  the  same  information  as  mlBST. 

It  is  used  as  a working  buffer  area  with  its  final  results 
being  transferred  into  A1BST  or  B1BST  depending  on  which 
target  is  being  considered  at  that  time. 

Number  of  ray  path  solutions  in  TSIBS. 

Number  of  code  words  in  TSPCW. 

Table  which  contains  a code  word  and  the  address  of  its  z 
limits  in  A1ZL  for  each  ray  path  that  may  exist  between  the 
target  and  sonobuoy  on  the  present  pass  through  the  three 
layer  ocean  subroutines. 


TABLE  C2  (Cont. ) 

- Target  time  delay  intermediate  computation  formed  by 
FIN1  subroutine. 

- Calculated  value  of  time  delay  for  a value  of  z for  a ray 
path. 

- Table  which  contains  the  possible  propagation  modes  that 
can  exist  in  the  three  layer  ocean  based  only  on  the  layer 
sound  velocity  gradients. 

- Number  of  modes  in  UDGDT. 

- Maximum  z limit  value  for  the  ray  path  being  calculated. 

- Address  of  the  z minimum  limit  for  the  ray  path  being 
calculated. 

- Address  of  the  z maximum  limit  for  the  ray  path  being 
calculated. 

- Value  of  z used  in  the  calculation  of  the  propagation 
parameters  for  a particular  ray  path. 

- Address  of  the  z value  used  to  start  the  Newton-Raphson 
calculation  for  a ray  path. 
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TTMP 

TTM1 

UDGDT 

UDLCT 

ZMAX1 

ZMNAD 

ZMXAD 

ZVAL1 

ZVATA 
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PROPM  SUBROUTINE 

1.  The  PROPM  subroutine  calls  the  ;rest  of  the  three  layer  ocean 
subroutines  which  calculate  the  ocean  propagation  parameters  for  a 
given  target  - sonobuoy  pair  based  on  their  geometry  at  that 
particular  moment  of  the  ASGS  problem. 

2.  0NL03,  which  is  part  of  the  main  ASGS  executive  program. 

3.  JSR@  .PROP 
. SnXH 
. TmXH 
mlNBS 
mnNLP 
mnNBM 


.PROP:  PROPM 
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COMPUTE 

AVERAGE 


RETRN  =>  ACS 


JSR  tspp 

JSR 

2LIM 

pSR 

MNMX 

r 

JSR  NRMD 

> 

i 

V 

PROPH  ENTRY 

1 

ACS  => 

RETRN 

I 

1 

r 

i 


0001  PROPM 

.NREL 

.tiil 

000010  , RDX 

.ENT 
.EXTN 
. EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 

00000 '054504  PROP M;  STA 


00001 '021400  LDA 

00002 '040424  STA 

00003 ' 040^44  3TA 

00004 '021401  LDA 

00005 ' 040424  S TA 

00006 '040442  3 TA 

0000? '021402  LDA 

00010 '040462  5TA 

00011 '04046?  3TA 

00012 '101400  INC 

0001 3 '040460  STA 

00014 '040465  STA 

0001 5 '02 1403  LDA 

0001 6 '040452  STA 

0001?' 101400  INC 

00020 '040451  STA 

00021 '021404  LDA 

00022 '040452  STA 

00023 '101400  INC 

00024 '040451  STA 

00025 ' 006460  J5RR 

00026 '000000  SNTBl:  0 
0002?'1???7?  SLY1 

00030 '1?????  5VL1 

00031 '000000  TGTBl ; 0 
00032 '1777??  SLYA 

00033 '17777?  SV'LA 

00034 '17777?  A1PCT 

00035 '177777  A1PP 

00036 '006450  JSR0 

0003? '000034'  RIPCT 

00040 ' 000035 ' A 1 P.P 

0004 1 ' 000033 ' SVLA 

00042 '000030'  SV'Ll 
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PROPM  ; 09/05/74 

g 

PROPM 

SLYl 

SLVA 

SV'Ll 

SV'LA 

A1PCT 

AlPP 

A1ZL 

Al.MM 

R1HR 

A1CH 

Al.NLP 

A1BST 

A1LPN 

P1NBM 

AlBMS 

TSPP 

ZLIM 

MNMX 

nrmd 

TOTG 
3.RETRN 
0.0.3 
0. SNTBl 
0.SNTB2 
0.1.3 
0. TGTB1 
0.  TGTB2 
0.2.3 
0. TSNBS 
0.  ADI 
0.0 

0. TSBST 
0.AD2 
0. 3. 3 
0, TSNLP 
0.0 

0. T5LPH 
0,4.3 
0.  TSNBM 
0.0 

0. TSBMS 
.TSPP 


.ZLIM 


| 

ij 

4 


1 


i 


LISTING  Cl 


C-12 


0002  PROPM 
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00043 ' 177777 

A1ZL 

00044-000027' 

SLV’l 

00045 '000032' 

SLYA 

00046 '006441 

JSRS 

.MNMX 

00047-000000  SNTB2; 

0 

00050 '000000  T6TB2: 

0 

00051 '00003?' 

01  POT 

00052' '000040' 

A1PP 

00053 '000043' 

A1ZL 

00054 '177777 

R1MM 

00055' 177777 

A1HR 

00056 '1777?? 

RICH 

0005?'00643l 

JSRS 

.NRMD 

00060 ' 000044 ' 

SLV1 

00061-000045' 

SLYA 

00062'000042' 

SV'Ll 

00063'000041' 

SV'LA 

00064-000055' 

A1HR 

00065-000051' 

A1PCT 

00066'000056' 

A1CW 

00067'000054' 

A1MM 

00070-177777  TSNLP: 

A1NLP 

000?1 '177777  TSLPW; 

A1LPW 

00072 '000000  T5NB5: 

0 

00073-000000  TSBS7; 

0 

00074-17777?  TSNBM: 

A1NB.M 

00075'17777?  T3EM3.- 

A1BMS 

00076'000404 

JMP 

AR.ND1 

00077 '006412 

JSR 

g.TOTG 

00100-000000  ADI; 

0 

00101 '000000  AD2; 

0 

00102-03440?  ARNDl; 

LD« 

3.  RETRN 

00103'001405 

JMP 

5,3 

00104' 000000  RE  T RN : 

0 

00105‘1?77?7  , TSPP: 

TSPP 

00106'177777  .ZLIM; 

ZLIM 

00107' 177777  .MNMX: 

MNMX 

00110-17777?  .NRMD; 

NRMD 

00111-177777  .T0T6; 

TOTS 

.END 

LISTING  Cl  (Continued) 
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GRADS  SUBROUTINE 

1.  The  GRADS  subroutine  computes  the  sound  velocity  gradients 
for  the  three  layer  ocean  and  compiles  a table  of  possible 
propagation  modes. 

2.  Main  ASGS  executive  at  the  start  of  the  problem  generation 
or  when  the  contents  of  LYDPP  or  LYVEL  are  changed. 

3.  JSR@  . GRAD 


.GRAD:  GRADS 

4.  Floating  point  math  package  (FPMP) 

5.  LYDPP  and  LYVEL 

6.  GDTBL,  UDLCT,  and  UDGDT 

7.  See  Figure  C2 - 

■ 

8.  See  Listing  C2  , 

S.  The  table  of  possible  propagation  modes  is  found  in  the 
following  manner. 

a.  All  layers  which  have  negative  gradients  plus  the  surface 
of  the  ocean  are  possible  tops  of  modes. 

b.  All  layers  which  have  positive  gradients  plus  the  bottom 
of  the  ocean  are  possible  bottoms  of  modes. 
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c.  All  possible  combinations  of  tops  and  bottoms  are  used  to 
form  the  table  of  possible  propagation  modes,  UDGDT,  with 
the  restriction  that  the  number  of  the  top  of  a mode  must 
be  less  than  the  number  of  the  bottom  of  the  mode. 
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.NREL 

.TITL 

GRADS  ; 12/03/73 

000010 

.RDX 

8 

.ENT 

GRADS 

.EXTN 

LYDPP 

.EXT  N 

GDTBL 

.EXTN 

LYVEL 

.EXTN 

UDLCT 

.EXTN 

UDGDT 

.EXTN 

FFSB 

.EXTN 

FFDV 

00000 '054552  GRADS: 

STA 

3.RETRN  : SAVE  RETURN  ADR, 

(30001  '020552 

LDA 

0.  .LYDP  .'GET  ADR.  Of  LAYER  DEPTH 

00002 '040433 

STA 

0.LYDP1 

00003 '050551 

LDA 

2.DBINC  .'GET  DATA  BASE  INCREMENT 

00004 ' 143000 

ADD 

2.0  .'ADR.  OF  NEXT  LAYER  DEPTH 

00005 '040431 

STA 

0.LYDP2 

00006 '02054 7 

LDA 

0.  .LYV'L  .'GET  ADR.  OF  LAYER  SND.  VEL. 

00007 '040432 

STA 

0.LYVL1 

00010' 143000 

ADD 

2.0  .'ADR.  OF  NEXT  LAYER  SND.  VEL. 

00011 '040431 

STA 

0. LYVL2 

00012 '020544 

LDA 

0. , GDTB  .'GET  ADR.  OF  GRADIENT  TB. 

00013 '040434 

STA 

0.  GDTBl 

00014 '020543 

LDA 

0.  .DNGD  .'GET  ADR.  OF  NEG.  GRAD.  LY.  NO. 

0001 5 '040543 

STA 

0.  DNGD1 

00016 '040543 

STA 

0. DNGD2 

0001 7 '020543 

LDA 

0..UFG D .'GET  ADR.  OF  POS,  GRAD.  LY.  NO. 

00020 '040543 

STA 

0.  UPGD1 

00021 '040543 

STA 

0. UFGDS 

00022 '020543 

LDA 

0..UDGD  .'GET  ADR,  OF  TOP-BOT.  TB. 

00023 '040543 

STA 

0.UDGD1 

0002a ' 102400 

SUB 

0.0  .'ZERO  IN  AC0 

00025 '042542 

STA 

60.  .UDLCr INITIALIZE  NO.  OF  TOP-BOT. 

00026 '101400 

INC 

0.0  .'ONE  IN  AC0 

00027 '040541 

STA 

0.DNLCT  .'INITIALIZE  COUNTERS 

00030 '040541 

STA 

0. UPLCT 

00031 '040541 

STA 

0.  GDCNT 

00032 '020541 

LDA 

0.  THREE  .'GET  THREE 

00033 '040541 

STA 

0.LPCN1  .'INITIALIZE  COUNTER 

00034 '006541  GDLOP; 

JSR 

8.FSUB  .'LY.  DEPTH  II)  - LY.  DEPTH  £1+1 J 

00035 '000000  LYDP1 : 

0 

.'ADR.  OF  LY.  DEPTH  111 

00036 '000000  LYDPS: 

0 

.'ADR.  OF  LY.  DEPTH  11*1) 

00037 '0001 77' 

TEMPI 

.'ADR.  OF  RESULT 

00040'006535 

JSR 

e.FSUB  ;LY.  SND.  VEL  (II  -LY.  SND.  VEL.  £1+13 

00041'000000  LWL1; 

0 

.'ADR.  OF  LY.  SND.  VEL.  £1+13 

00042'000000  LYVL2: 

0 

;ADR.  OF  LY.  SND.  VEL.  (I) 

00043 '000202 ' 

TEMPS 

.'ADR.  OF  RESULT 

00044'006532 

JSR 

8.FDIV  iDIFF.  (LY. SND.  VEL.. VD IFF  (LY.  DEPTH) 

00045'000202' 

TEMPS 

.'A DR.  OF  DIFF.  (LY.SND.  VEL.} 

00046-000177' 

TEMPI 

.'ADR.  OF  DIFF.  (LY.  DEPTH) 

0004 7 '000000  GDTBl; 

0 

.'ADR.  OF  RESULTANT  GRADIENT 

00050 ' 020765 

LDA 

0.LYDP1  .'GET  ADR.  OF  LY.  DEPTH 

00051'030503 

LDA 

2.DBINC  :GET  DATA  BASE  INCREMENT 

00052'143000 

ADD 

2.0  : SET  UP  NEXT  ADR.' S 

00053'040762 

STA 

0.LYDP1 

00054'143000 

ADD 

2.0 

00055'040761 

STA 

0.LYDP2 

00056-020763 

LDA 

0.LYVL1  f GET  ADR.  OF  LY.  SND,  VEL 

00057'143000 

ADD 

2.0  : SET  UP  NEXT  ADR.' S 

f 
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0002  GRADS 


00060-040761 

STA 

0.LYVL1 

00061 '143000 

ADD 

2.0 

00062 '040760 

STA 

0.  LYVL2 

00063'034764 

LDA 

3.GDTB1 

;6ET  ADR.  OP  GRADIENT  TB. 

00064 '021401 

LDA 

0«  lib 

.'GET  GRADIENT 

00065 '157000 

ADD 

2.3 

; SET  UP  NEXT  ADR. 

00066 '05^761 

STA 

3.6DTB1 

00067 '024503 

LDA 

1.6DCNT 

.'GET  LAYER  NO.  BEING  CHECKED 

00070 '101 103 

MQVL 

0. 0. 5NC 

.'SKIP  IF  GRADIENT  IS  NE6„ 

00071 '000407 

JMP 

ENTR1 

.'GO  TO  POSITIVE  GRAD.  STORAGE 

00072'030466 

LDA 

2.  DNGD1 

:GET  ADR. OF  NEG.  GRAD.  LY.  NO. 

00073 '045001 

STA 

1.1.2 

.'STORE  LY.  NO.  IN  TB. 

00074'151400 

INC 

2.2 

,'SET  UP  NEXT  ADR. 

00075 '050463 

STA 

2.  DNGD1 

00076 '010472 

ISZ 

DNLCT 

.'INCREMENT  NO.  OF  NEG.  GRAD. 

00077 ' 000406 

JMP 

ENTR2 

.'JUMP  AROUND  POS.  GRAD  STORAGE 

00100 '030463  ENTR1 ; 

LDA 

2.UFGD1 

.'GET  ADR.  OF  POS.  GRAD,  LY.  NO, 

00101 '045000 

STA 

1.0.2 

.'STORE  LY.  NO.  IN  TB, 

00102'151400 

INC 

2.2 

.'SET  UP  NEXT  ADR. 

001 05 '050460 

STA 

2. UPGD1 

00104'010465 

ISZ 

UFLCT 

.'INCREMENT  NO.  OF  POS. GRAD. 

00105'010465  ENTR2; 

ISZ 

GDCNT 

.'INCREMENT  LY.  NO,  BEING  CK, 

00106'014466 

DSZ 

LFCN1 

.'SKIP  AFTER  ALL  LY. 'S  ARE  CK. 

00107-000725 

JMP 

GDLOP 

; COMPUTE  NEXT  GRADIENT 

00110-020475 

LDA 

0. FOUR 

.'GET  FOUR 

00111-041000 

STA 

0.0.2 

.'INSERT  EOT.  LAYER  NO. 

00112'020456 

LDA 

0. DNLCT 

.'GET  NO.  OF  TOPS 

00113'040473 

STA 

0.CNTR1 

00114'034445 

LDA 

3.  DN6D2 

.'GET  ADR.  OF  TOP  LY.  .NO,  TB. 

00115'020454  LD0F1: 

LDA 

0. UFLCT 

,' GET  NO.  OF  BOTTOMS 

00116'040471 

STA 

0.CNTR2 

00117'025400 

LDA 

1.0. 3 

:GET  TOP  LY.  NO, 

00120-034442 

LDA 

3. , UFGD 

.'GET  ADR.  OF  BOT.  LY.  NO.  TB. 

00121'054443 

STA 

3.UP6D2 

00122-034442  L00P2: 

LDA 

3.  UFG D2 

,'GET  ADR.  OF  BOT.  LY.  NO.  TB. 

00123-021400 

LDA 

0. 0. 3 

.'GET  BOT,  LY.  NO. 

00124'175400 

INC 

3.3 

.'SET  UP  NEXT  ADR. 

00125-054437 

STA 

3. UFGD2 

00126-030440 

LDA 

2. UDGDl 

.'GET  ADR.  OP  TOP-BOT.  TB. 

00127'106513 

SUBLf 

0.1. SNC 

.'SKIP  IF  BOT.  NO  >TOp  NO, 

00130'000407 

JMP 

ENTR3 

: SOLUTION  NOT  VALID 

00131-041001 

STA 

0.1.2 

.'STORE  BOT  LY.  NO,  IN  TB. 

00132'045000 

STA 

1.0.2 

.'STORE  TOP  LY.  NO.  IN  TB. 

00133'151400 

INC 

2.2 

.'SET  UP  NEXT  ADR. 

00134'151400 

INC 

2.2 

00135-050431 

STA 

2.  UDGDl 

00136-012431 

ISZ 

R.UDLC 

.'INCREMENT  NO.  OF  SOLUTIONS 

00137-014450  ENTR3; 

DSZ 

CNTR2 

.'SKIP  AFTER  ALL  BOT.  NO.  CK. 

00140-000762 

JMP 

L00P2 

.'GET  NEXT  BOT.  NO, 

0014T014445 

DSZ 

CNTRl 

J SKIP  AFTER  ALL  TOP  NO,  CK. 

00142-000402 

JMP 

ENTR4 

.'CONTINUE 

00143 ”000405 

JMP 

ENTR5 

.'JUMP  TO  END 

00144-034415  ENTR4: 

LDA 

3.DNGD2 

.'GET  ADR.  OF  TOP  LY.  NO.  TB, 

00145-175400 

INC 

3.3 

.'SET  UP  NEXT  ADR. 

00146-054413 

STA 

3. DNGD2 

00147-000746 

JMP 

LOOP1 

.'GET  NEXT  TOP  NO. 

00150'034402  ENTR5; 

LDA 

3. RETRN 

.'GET  RETURN  ADR. 

00151-001400 

JMP 

0.3 

.'RETURN 

00152-000000  RETRN: 

0 

LISTING  C2  (Continued) 
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0003  GRADS 

001 53 ' 1 77777  . LYDP;  l YD FF 
00154 '000003  DBINC;  3 
00155 '177777  .LYVL:  LWEL 
001 56 '177777  .GDTB:  GDTBL 
00157 '000210 ' . D.NGD:  DNGDT 

00160 '000000  DNGD1;  0 
00161'000000  DNGD2;  0 
00162' 000214 '.UPGD;  UPGDT 
00163 '000000  UFGDl;  0 
00164 '000000  UPGD2;  0 
00165 '177777  ,UDGD;  UDGDT 
00166 '000000  UDGDl:  0 

00167' 177777  .UDLC:  UDLCT 

0017 0' 000000  DNLCT:  0 
00171 '000000  UFLCT:  0 
001 72 '000000  GDCNT;  0 
001 73 '000003  THREE;  3 
001 74 '000000  LFCN1:  0 
001 75 '177777  .F3UB:  FESB 

001 76 '177777  .FDIV:  FF DV 
001 77 '000000  TEMPI;  0 


00200 ' 000000  0 

00201 '000000  0 

00202-000000  TEMP2;  0 
00203'000000  0 

00204 '000000  0 

00205'000004  FOUR:  4 

00206 '000000  CNTR1:  0 
00207'000000  CNTR2;  0 
00210-000000  DNGDT:  0 

00211 '000000  0 

00212-000000  0 

00213'000000  0 

00214'000000  UPGDT;  0 
00215'000000  0 

00216'000000  0 

0021 7 '000000  0 

.END 
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TSPP  SUBROUTINE 

1.  The  TSPP  subroutine  finds  the  layers  in  which  the  target  and 
sonobuoy  are  located  and  computes  the  sound  velocities  at  their 
locations.  This  subroutine  also  eliminates  some  of  the  modes  from 
the  table  of  possible  propagation  modes  found  in  the  GRADS  subroutine. 

2.  PROPM 

3.  JSR(?  .TSPP 
. SnXH 
SLY1 

SVL1 

. TmXH 

SLYA 

SVLA 

A1PCT 

A1PP 


.TSPP:  TSPP 

4.  FPMP 

5.  .SnXH,  .TmXH,  LYVEL,  LYDPP,  GDTBL,  UDLCT,  and  UDGDT 

6.  SLY1,  SVL1,  SLYA,  SVLA,  A1PCT,  and  A1PP 
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7.  See  Figure  C3  . 

8.  See  Listing  C3„ 

9.  The  criteria  for  eliminating  some  of  the  possible  propagation  modes 
contained  in  UDGDT  is  that  for  a mode  to  exist  it  must  encompass  both 
of  the  layers  occupied  by  the  target  and  sonobuoy. 


; 


Co  Co 
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FIG.  C3 


UOoDTfI+1 
> BTLMT 


UDGDTUi 
= UDZDTUfl 


HlPPU) 

IfilPPUtl 


hIPCT 


FIG.  03  (CONTINUED) 
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FIG.  C3  (CONTINUED) 
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0001  TSPP 


.NREL 

.TITO 

TSPP  ; 03/01/74 

000010 

.RDX 

8 

.ENT 

TSPP 

.ExTN 

LYVEL 

.EX  TN 

LYDPP 

.EXTN 

UDLCT 

.EXTN 

UDGDT 

.EXTN 

6DTBL 

.EXTN 

FFAD 

.EXTN 

eesb 

.EXTN 

FFLD 

.EXTN 

ffml 

00000 '054505 

TSPP: 

ST  ft 

3, RETRN: SftVE  RETURN  ADR. 

00001 '031400 

LDft 

2,0.3  ;GET  SON0.  TB.  ADR. 

00002 '050420 

STft 

2, SONTB 

00003 '031401 

LDft 

2.1.3  ;GET  SONO,  LY.  NO.  ADR. 

00004'050417 

STft 

2. 5GNL1 

00005 '031402 

LDft 

2,2,3  ;G£T  SONO.  SND.  VEL.  ADR. 

00006 '0504 16 

STft 

2, SONSV 

0000? '031 403 

LDft 

2.3.3  ;6£T  TftRGET  TB.  ADR. 

00010-05 0416 

STft 

2. TAGTB 

00011 '031404 

LDft 

2,4.3  ;6ET  TftRGET  LY.  NO.  ftDR. 

00012'050415 

STft 

2, TftGLl 

00013'031405 

LDft 

2,5.3  ; GET  TftRGET  SND.  VEL.  ftDR. 

00014 '050414 

STft 

2,  TAGS'/ 

00015 '031406 

LDft 

2.6.3  ;6£T  ftDR.  OF  NO,  OF  NODES 

00016'050471 

STft 

2. TSPCT 

00017 '031407 

LDft 

2,7.3  : GET  ADR.  OF  MODES 

00020'0 50470 

STft 

2. TSPPH 

00021 '004520 

JSR 

LYFND 

00022'000000 

SONTB: 

0 

: ADR,  OF  SONO.  TB. 

00023-000000 

SON LI: 

0 

;ADR.  OF  SONO.  LY.  NO. 

00024-000000 

SONSV: 

0 

;ADR.  OF  SONO.  SND  VEL, 

00025'004514 

JSR 

LYFND 

0002S'000000 

TftGTB: 

0 

.'ADR.  OF  TARGET  TB. 

00027'000000 

TftGLl : 

0 

;ADR.  OF  TARGET  LY.  NO. 

00030 ' 000000 

TftGSV: 

0 

; ADR.  OF  TARGET  SND.  VEL. 

00031 ' 022460 

ADJPP: 

LDA 

§0. .ODLClGET  NO.  OF  MODES  POSS, 

00032 ' 040460 

STft 

0, PPCNT 

00033'040460 

STft 

0, CNTR1 

00034 ' 030460 

LDft 

2. .UDGD  ;GET  ADR.  OF  MODES  POSS. 

00035'050460 

STft 

2.PPHTA 

00036'022765 

LDft 

§0, SONL1 ; GE I SONO.  LY.  NO. 

00037'026770 

LDft 

S1.TAGL1  :GET  TARGET  LY.  NO. 

00040'106513 

SUBLt 

0.1. SNC  ; SNIP  IF  SONLY  > TAGLY 

00041'000404 

JM P 

ENTR4  ; JJMP  ftROUNO 

00042 ' 040454 

STft 

0. BTLMT  ;SONO.  LY.  NO.  IS  BOT.  LIMIT 

00043-044454 

STft 

l.TPLMT  ; TARG.  LY.  NO.  IS  TOP  LIMIT 

00044'000403 

JMP 

ENTR5  .*  JUNP  AROUND 

0004 5 ' 040452 

£ NTR4: 

STft 

0.TP LMT  ;SONO.  LY,  NO.  IS  TOP  LIMIT 

00046 ' 044450 

STft 

1. BTLMT  ; TARG,  LY.  NO.  IS  BOT.  LIMIT 

00047'021000 

ENTR5: 

LDft 

0.0.2  ;GET  MODE  TOP  NO. 

00050 ' 025001 

LDft 

1.1.2  ;GET  MODE  BOT.  NO. 

00051 ' 030446 

LDft 

2.TPLMT  ;GET  LIMITS 

00052 ' 034444 

LDft 

3. BTLMT 

00053'112513 

SUBLt 

0.2, SNC  .-SKIP  IF  TOP  LIMIT  EXCEEDED 

00054'000404 

JMP 

ENTR6  ; JUMP  TO  TEST  BOT. 

00055-014435 

DS2 

PPCNT  : DELETE  MODE 
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00056-1  01000 

MOV 

0.0 

00057 "000414 

JMP 

ENTRS 

.'JUMP  A ROUND 

00060' 166513  ENTR6: 

SUBLf 

3. 1.  SNC 

; SKIP  IF  BOT.  LIMIT  EXCEEDED 

00061 ' 000404 

JMP 

FNTR7 

:JUMP  TO  STORE  SOLUTION 

00062 "014430 

D 57 

PPCNT 

: DELETE  MODE 

00063 ‘101000 

MOV 

0.0 

00064 '000407 

JMP 

ENTRS 

: JUMP  AROUND 

00065 "030423  ENT R7: 

LDA 

2. TSPPH 

; GET  ADR.  OF  MODES 

00066' 0m  000 

3TA 

0.0.2 

: STORE  TOP  NO. 

00067 "045001 

3TA 

1.1.2 

: STORE  BOT.  NO. 

00070' 151400 

INC 

2.2 

;SET  UP  NEXT  ADR. 

00071 '151400 

INC 

2.2 

00072 '050416 

STA 

2. TSPPH 

00073 '030*122  ENTR8: 

LDA 

2.PPHTA 

.•GET  ADR.  OF  MODES  POSS. 

6007*1 ' 151450 

INC 

2.2 

;SET  UP  NEXT  ADR. 

00075 '151400 

INC 

2.2 

00076 '05041 7 

STA 

2.PPHTA 

00077'014414 

DS2 

CNTRl 

.•SKIP  IF  ALL  MODES  CHECKED 

00100'000747 

JMP 

ENTRS 

: TEST  NEXT  POSS.  MODE 

00101'020411 

LDA 

0. PPCNT 

;GET  NO.  OF  MODES 

00 102 '042405 

STA 

90. T5PCT: STORE  NO.  IN  DATA  BASE 

60103-034402 

LDA 

3. RETRN 

;GET  RETURN  ADR. 

00104 ' 001410 

JMP 

10. 3 

; RETURN 

00105-000000  RETRN: 

0 

00106 '177777  .LYVL: 

LYVEL 

00107" 000000  T5 PCT: 

0 

001 10 '000000  TSPPH: 

0 

00111' 177777  , UDiC : 

UDLCT 

00112' 000000  PPCNT: 

0 

001 13 '000000  CNTRl: 

0 

00114 ' 177777  .UDGD: 

UD6DT 

001 15 '000000  PPHTA: 

0 

001 16 '000000  BTLMT: 

0 

001 17' 000000  TPLMT: 

0 

00120 '000000  RE TUN: 

0 

00121'177777  .LV'DP: 

LY'DPP 

00122'000004  INCRl: 

4 

00123 ' 000000  TEMAl : 

0 

00124'000000  T£Mh2: 

0 

00125'000000  TEMA3: 

0 

00126-000000  TEMB1: 

0 

00-i  2 7 ' 000000  ■ 

0 

00130-000000 

0 

00131'177777  .FFLB: 

FFLD 

00132'177777  .FSUB: 

FF  SB 

00133'000004  FOUR: 
00134'000003  THREE: 

4 

3 

00135'177777  .GDTB: 

6DTEL 

00136-000003  DB1NC: 

3 

06137' 177777  . FMUL : 

FFML 

00140'177777  .FADD: 

FFAD 

00141-054757  LYFND 

STA 

3. RETUN  .-SAVE  RETURN  ADR. 

00142-030757 

LDA 

2.  .LYDP 

.-GET  ADR.  OF  LAYER  DEPTHS 

60143'050415 

STA 

2. LYDPl 

00144'102400 

SUB 

0.0 

; ZERO  IN  AC0 

00145'040746 

STA 

0.  CNTRl 

.•INITIALIZE  COUNTER 

00146'021400 

LDA 

0.0.3 

;GET  ADR.  OF  OBJECT  TB. 

00147'024753 

LDA 

1. INCRl 

.-GET  DATA  BASE  INCREMENT 

00150'107000 

ADD 

0.1 

:SET  UP  ADR.  OF  OBJ.  DEPTH 
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C-27 


0003  T5PP 


00151 '044402 

STA 

1.  TEMCA 

00152 '006757 

J5R 

e.FFLD 

00 153 '000000  TEMCA: 

0 

00154 ‘ 000004 

4 

00155 '000126' 

TEMB1 

00156 '006754  LOOPl: 

JSR 

e.FSUB 

00157' 000126' 

TEMB1 

00160' 000000  L YDP 1 : 

0 

00161' 000123' 

TEMA1 

00162 ‘020742 

LDA 

0.  TEMA2 

00163 '101004 

MOV 

0. 0.  SZR 

00164 '000402 

JMP 

ENTRl 

001 65 ' 000412 

JMP 

ENTR2 

00166‘101112  ENTR1: 

MOVLf 

0. 0. 5ZC 

00167' 000411 

JMP 

ENTR3 

001 70 '010723 

ISZ 

CNTR1 

00171 '03076? 

LDA 

2. LVDP1 

001 72 '151400 

INC 

2.2 

00173' 151400 

INC 

2.2 

00174' 151400 

INC 

2.2 

001 75 '050763 

STA 

2. LVDPl 

001 76 '000760 

JMP 

LOOPl 

00177 ‘010714  ENTR2: 

ISZ 

CNTR1 

00200 ‘024713  ENTR3: 

LDA 

1.CNTR1 

00201 ‘034732 

LDA 

3. FOUR 

00202'136405 

SUB 

1,3.  SNR 

00203 '024731 

LDA 

1. THREE 

00204 '034714 

LDA 

3, RETUN 

00205 ' 031401 

LDA 

2.1.3 

00206 ' 045000 

STA 

1.0.2 

00207‘044704 

STA 

1 . CNTR1 

00210-020676 

LDA 

0. .LVVL 

00211'030725 

LDA 

2.DBINC 

00212'073301 

MUL 

00213'044420 

STA 

1. LVVL 1 

0021 4 '020721 

LDA 

0,  . GDTB 

00215-024676 

LDA 

1.CNTR1 

00216 '1 76520 

SUBZL 

3.3 

00217' 166400 

SUB 

3.1 

00220'073301 

MUL 

00221 '044402 

STA 

l.GDTBl 

00222'006715 

JSR 

S.FMUL 

00223'000000  GDTB1 : 

0 

00224 '000123' 

TEMA1 

00225 '000126' 

TEMB1 

00226 '034672 

LDA 

3, RETUN 

00227'021402 

LDA 

0.2.3 

00230 ‘040404 

STA 

0.  TEMCB 

00231 '006707 

JSR 

e.FADD 

00232 '000126 ' 

TEMB1 

00233 ' 000000  LVVL 1 : 

0 

00234 '000000  TEMCB: 

0 

00235 ' 034663 

LDA 

3.  RE  TUN 

00236 '001 403 

JMP 

3.3 

.END 
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: FLOAT  OBJECT  DEPTH 
; ADR.  OF  OBJECT  DEPTH 
:B4  DP 

: ADR.  OF  FL.  PT.  OBJ.  DEPTH 
:OBJ.  DEPTH  - L AVER  DEPTH 
; ADR.  OF  OBJECT  DEPTH 
;hDR.  OF  LAVER  DEPTH 
.'ADR.  OF  RESULT 
;G£T  RESULT 
;SK1P  IF  RESULT  ZERO 
.* TEST  SIGN  OF  RESULT 
; ZERO  Fix 

:SK1P  IF  OBJ.  DPH> LV.  DPH 
;OBJ.  IN  THIS  LAVER  NO. 

; INCREMENT  LAVER  NO. 

; GET  ADR.  OF  LAVER  DEPTH 
;SET  UP  NEXT  ADR. 


; TEST  NEXT  LAYER 
; INCREMENT  LAYER  NO. 

; GET  LAVER  NO. 

; GET  FOUR 

.-SKIP  IF  LV.  NO.  < F OUR 
; USE  THREE 
;G£T  RETURN  ADR. 

;G£T  ADR.  OF  OBJ.  LV,  NO. 

: STORE  NO.  IN  DATA  BASE 
; SAVE  OBJ.  LV.  NO, 

:GET  ADR. OF  LV.  SND.  VEL.  TB. 

; GET  DATA  BASE  INCREMENT 
;ADR.  OF  LV,  SND.  VEL.  BELOW  OBJ. 

;GET  ADR.  OF  GRADIENT  TB. 

;G£T  OBJ,  LV,  NO, 

; ONE  IN  ACS 

;OBJ.  LY. NO.  - ONE 

:ADR.  OF  OBJ.  LV.  GRADIENT 

:GRAD.  TIMES  DELTA  DEPTH 
;ADR.  OF  GRADIENT 
; ADR.  OF  DELTA  DEPTH 
; ADR.  OF  RESULT 
; GET  RETURN  ADR. 

; GET  ADR.  OF  OBJ.  SND.  VEL. 

.•RESULT  t LY.  SND.  VEL. 

; ADR.  OF  ABOVE  RESULT 
; ADR.  OF  LY.  SND.  VEL.  BELOW  OBJ. 
;ADR.  OF  OBJ.  SND.  VEL. 

; GET  RETURN  ADR. 
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ZLIM  SUBROUTINE 

1.  The  ZLIM  subroutine  computes  the  maximum  and  minimum  limit  values 
that  z can  have  for  each  possible  propagation  mode  in  A1PP.  This 
subroutine  also  eliminations  modes  from  A1PP  based  on  these  z limit 
values • 

2 . PROPM 

3.  JSR@  .ZLIM 
A1PCT 
A1PP 

SVLA 

SVL1 

A1ZL 

SLY1 

SLYA 


.ZLIM:  ZLIM 

4 . FPMP 

5 . LYVEL,  A1PCT , A1PP,  SVLA,  SVL1,  SLY1 , AND  SLYA 

6.  A1PCT,  A1PP , and  A1ZL 

7 . See  Figure  C4  . 
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8 . See  Listing  C4  <• 

9.  The  z limits  for  each  propagation  mode  in  A1PP  are  found  in  the 
following  manner. 

a.  First  consider  the  layer  or  surface  in  which  the  ray  paths 

turn  downward  (the  top  of  the  mode). 

1.  z maximum  = sound  velocity  at  the  top  of  the  layer, 

2.  z minimum  = sound  velocity  at  the  bottom  of  the  layer* 

3.  If  the  top  of  the  mode  is  a 0,  then  replace  z maximum 

with  a conveniently  large  value,  z minimum  should 

then  be  set  to  the  sound  velocity  at  the  top  of  the 
three  layer  ocean. 

b.  Next,  consider  the  layer  or  surface  in  which  the  ray  paths 

turn  upward  (the  bottom  of  the  mode). 

1.  z maximum  = sound  velocity  at  the  bottom  of  the  layer, 

2.  z minimum  = sound  velocity  at  the  top  of  the  layer 0 

3.  If  the  bottom  of  the  mode  is  a 4,  then  replace  z 

maximum  with  the  same  large  value  mentioned  in  (a)  3. 

z minimum  should  then  be  set  to  the  sound  velocity  at 
the  bottom  of  the  three  layer  ocean. 

c.  Next  consider  the  location  of  the  target  and  sonobuoy . 

1.  If  the  top  of  the  mode  contains  the  target  replace 

the  value  of  z minimum  for  the  top  with  the  sound 
velocity  at  the  target. 


If  the  top  of  the  mode  contains  the  sonobuoy  replace 
the  value  of  z minimum  for  the  top  with  the  sound 
velocity  at  the  sonobuoy. 
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3.  If  both  the  target  and  sonobuoy  are  In  the  top  of 
the  mode  replace  the  value  of  z minimum  of  the  top 
with  the  larger  of  the  two  sound  velocities. 

4 . If  the  top  of  the  mode  does  not  contain  either  a target 
or  sonobuoy  the  values  of  the  z limits  for  the  top 
are  correct. 

5.  Repeat  steps  c.)  1.  through  c.)  4.  for  the  values  of 
z limits  for  the  bottom  of  the  mode. 

d.  Next  compare  the  values  of  the  z limits  from  the  top  and 
bottom  of  the  mode. 

1.  Choose  the  larger  value  of  the  two  z minimums  as  the 
z minimum  of  the  propagation  mode. 

2.  Choose  the  smaller  value  of  the  two  z maximums  as  the 
z maximum  of  the  propagation  mode. 

e.  Next  compare  the  value  of  z minimum  with  all  the  sound 

fl 

velocities  at  the  layer  interfaces  between  the  top  and 
bottom  of  the  mode.  If  any  of  these  sound  velocities 
are  greater  than  z minimum  replace  z minimum  with  its 
value . 

f.  Finally  if  the  value  found  for  z maximum  is  not  greater  than 
the  value  found  for  z minimum,  the  propagation  mode  is 
eliminated  from  A1PP  and  the  value  of  A1PCT  decremented 
by  one . 
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.NREL 

.T1TL 

ZLIM 

.'03/19/74 

000010 

. RDX 

n 

.ENT 

ZLIM 

.EX  TN 

LYVEL 

.ExTN 

rrsB 

.EXTN 

FFAD 

.EXTN 

FF  ML 

00000-054555  ZLIM: 

STA 

'3.RETRN 

.'SAVE  RETURN  ADR. 

00001 '031^00 

LDA 

2.0.3 

.'GET  ADR,  OF  NO.  OF  POSS  MODES 

00002 '05055 4 

STA 

2. TSFCR 

00003 '021000 

LDA 

0.  0.2 

.'GET  NO,  OP  FOSS.  MODES 

00004 '040553 

STA 

0.  CNTR2 

00005 '021 401 

LDA 

0.1.3 

{GET  ADR.  OF  FOSS  MODES  TB. 

00006 ' 040552 

STA 

0.  TSPPA 

00007 '040552 

STA 

0.  TSPpX 

00010 '021402 

LDA 

0.2.3 

.'GET  ADR.  OF  TG,  SND,  VEL. 

00011 '040415 

STA 

0. T6VLA 

00012 '021403 

LDA 

0. 3. 3 

.'GET  ADR.  OF  SONO.  SND.  VEL, 

00013 '040412 

STA 

0.  SNVLA 

00014 '021404 

LDA 

0. 4. 3 

.'GET  ADR.  OF  Z LIMITS  TB. 

00015 '040545 

STA 

0.ZLIMA 

00016 '031405 

LDA 

2. 5. 3 

,'GET  ADR.  OF  SONO.  LY,  NO, 

000: 7 '021 000 

LDA 

0.0.2 

.'GET  SONO,  LY.  NO, 

00020 '040543 

STA 

0.  SONLV 

00021 '031406 

LDA 

2.6.3 

; GET  ADR,  OF  TG.  LY.  NO. 

00022 '02 1000 

LDA 

0.0.2 

,'GET  TG.LY.NO. 

00023 '040541 

STA 

0. TAGLY 

00024' 006541 

JSR 

e.FSUB 

.'SONO,  SND.  VEL.  - TG,  SND.  VEL 

00025 '000000  SNVLA; 

0 

.'ADR.  OF  SONO,  SND.  VEL. 

00026'000000  TGV'Lh; 

0 

,'ADR.  OF  TG,  SND.  UEL. 

0002 7 '0001 66' 

TE MAI 

.'ADR,  OF  RESULT 

00030 '02053 7 

LDA 

0. TEMA2 

.'GET  RESULT 

00031 '030775 

LDA 

2. TGVLA 

,'GET  ADR,  OF  TG,  SND.  VEL. 

00032' 101103 

MOVE 

0. 0,  SNC 

.'SKIP  IF  TG,  SND,  VEL  > SONO,  S 

00033" 030772 

LDA 

2. SNVLA 

.'GET  ADR.  OF  SONO.  SND.  VEL. 

00034'050535 

STA 

2.LTSVA 

.'STORE  ADR.  OF  LARGER  SND.  VEL. 

00035 '030523  LOOP 2; 

LDA 

2.  TSPPA 

.'GET  ADR.  OF  POSS,  MODES  TB. 

00036'025000 

LDA 

1.0.2 

.'GET  TOP  LAYER  NO, 

00037'021001 

LDA 

0.1.2 

.'GET  BOT.  LAYER  NO, 

00040'044532 

STA 

l.TPLY 

00041 '040532 

STA 

0.  BTLY 

000^2 '102520 

SUBZL 

0.0 

.'ONE  IN  AC0 

00043 '106400 

SUB 

0.1 

.'TOP  LAYER  NO.  - ONE 

00044 ' 030530 

LDA 

2.D6INC 

.'GET  DATA  BASE  INCREMENT 

00045'020530 

LDA 

0.  .L'YVL 

,'GET  ADR.  OF  LY.  SND,  VEL,  TB. 

00046-073301 

MUL 

;ADR,  OF  TOP  Z MAX,  LIMIT 

00047 '044475 

STA 

l.ZTMXA 

00050'147000 

ADD 

2.1 

.'ADR,  OF  TOP  Z MIN.  LIMIT 

00051 '044462 

STA 

l.ZTMNA 

00052'020520 

LDA 

0. TPLY 

.'GET  TOP  LY.  NO. 

00053'101004 

MOV 

0. 0. 5ZR 

.'SKIP  IF  TOP  LY.  NO,  IS  ZERO 

00054'000405 

JMP 

ENTR1 

.'JUMP  AROUND 

00055-024521 

LDA 

1.MAXZA 

iGET  ADR.  OF  LIMIT  ON  Z MAX. 

00056 '044466 

STA 

l.ZTMXA 

.'ADR.  OF  TOP  Z MAX,  LIMIT 

00057-020516 

LDA 

0.  , LYVL 

; ADR.  OF  LY.  SND,  VEL.  TB. 

00060-040^53 

STA 

0.  ZTMNA 

,'ADR.  OF  Z MIN  LIMIT 

00061 '024512  ENTR1: 

LDA 

1.  BTLY 

,'GET  BOT.LY,  NO. 
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00062’ 102520 

SUBZL 

0.0 

.'ONE  IN  AC0 

00063 ' 106400 

SUB- 

0.1 

:BOT.  LY,  NO.  - 0NE 

00064  ''030510 

IDA 

2.DBINC 

.'GET  DATA  BASE  INCREMENT 

00065  020510 

LDA 

0.  , LYVL 

.'GET  ADR,  OE  LY.  SND.  VEL,  TB. 

00066'073301 

MUL 

.'ADR.  Of  BOT,  Z MIN.  LIMIT 

00067 -044445 

STA 

l.ZBMNA 

00070’ 147000 

ADD 

2.1 

.'ADR.  OE  BOT.  Z MAX.  LIMIT 

00071 -044454 

STA 

l.ZBMXA 

00072' 020501 

LDA 

0.  BTLY 

.'GET  BOT,  LY.  NO. 

00073 '024513 

LDA 

1 -FOUR 

;'GET  EOUR 

00074 '106414 

SUB# 

0.1.  SZR 

.'SKIP  IF  BOT.  LY,  NO.  IS  rOUR 

00075'000403 

JMP 

ENTR2 

.'JUMP  AROUND 

00076 '024500 

LDA 

1.MAXZA 

,' GET  ADR.  OE  LIMIT  ON  Z MAX. 

00077'044446 

STA 

l.ZBMXA 

.'ADR.  OR  BOT.  Z MAX.  LIMIT 

00100-0 20472  ENTR2 ; 

LDA 

0. TPLY 

;GET  TOP  LY.NO, 

00101 '030432 

LDA 

2. ZTMNA 

iGET  ADR,.  OE  TOP  2 MIN.  LIMIT 

00102 '004407 

JSR 

SUBRl 

i’TEST  EOR  OBJ,  IN  TOP  LY. 

00103 '050430 

STA 

2. ZTMNA 

.'ADR,  OF  TOP  Z MIN.  LIMIT 

00104'020467 

LDA 

0.  BTLY 

; GPT  EOT,  LY.NO. 

00105 '030427 

LDA 

2.  ZBMNA 

.'GET  ADR,.  OE  BOT.  Z MIN.  LIMIT 

00106 '004403 

JSR 

SUBRl 

.'TEST  FOR  OBJ.  IN  BOT.  LY. 

00107'050425 

STA 

2. ZBMNA 

.'ADR.  OE  BOT,  Z MIN.  LIMIT 

001 10 '000422 

JMP 

ARND1 

.'JUMP  AROUND  SUBRl 

00111-054471  SUBRl: 

STA 

3.  RE TUN 

.'SAVE  RETURN  ADR, 

00112'024452 

LDA 

1.TA6LY 

.'GET  TG.  LY,  NO, 

00113 '176400 

SUB 

3.3 

.'ZERO  IN  ACS 

0011 4 '106414 

SUB# 

0.1. SZR 

; SKIP  IF  TG,,  IN  LY. 

0011 5 '000403 

JMP 

ENTR3 

.'TEST  LOCATION  OF  SON 0, 

00116'030710 

LDA 

2. T6VLA 

.'GET  ADR.  OE  TG,  SND.  VEL, 

00117'176520 

SUBZL 

3.  3 

: ONE  IN  AC3 

00120-024443  ENTR3; 

LDA 

l.SONLY 

,'GET  SONO.  LY.  NO, 

00121'106414 

SUB# 

0,1. SZR 

,'Sf  ;p  IF  SONO.  IN  LY. 

00122 '000406 

JMP 

ENTR5 

.'JUMP  TO  END 

?3'1 75004 

MOV 

3. 3,  SZR 

.'SKIP  IF  ONLY  SONO,  IN  LY, 

. -*'000403 

JMP 

ENTRY 

.'BOTH  TG.  AND  SONO.  IN  LY, 

6»  '30700 

LDA 

2. SNVLA 

.'GET  ADR,  OE  SONO,  SND,  VEL 

0t/.  '.C04|22 

JMP 

ENTR5 

.'JUMP  TO  END 

001-  • • ENTR4: 

LDA 

2.LT3VA 

,'GET  ADR.  OE  GREATER  SND.  VEL. 

00136  0-’  rNTR5; 

LDA 

3.  RE TUN 

.'GET  RETURN  ADR. 

00131 -001 

JMP 

0.3 

: RETURN 

00132-006-;.  - 

JSR 

e.rsuB 

:TOP  2 MIN,  - BOT.  2 MIN. 

0013 3'000000  . 

0 

.'ADR.  OE  TOP  Z MIN,  LIMIT 

00134 '000000  ZB 

; ADR.  Cf  BOT.  Z MIN.  LIMIT 

00135-000166' 

.'ADR,  OF  RESULT 

00136-020431 

J.  TEMA2 

.'GET  RESULT 

001 37 '030775 

Lb* 

ZBMNA 

,'GET  ADR.  OE  BOT.  Z MIN.  LIMIT 

00140-101113 

Muvl* 

. 0. 5NC 

.'SKIP  IP  BOT.  Z > TOP  Z 

00141-030772 

LDA 

c.  Z'*WA 

.'GET  ADR,  OE  TOP  Z MIN.  LIMIT 

00142 '050466 

STA 

2.  J “• 

-DP.  OP  LARGER  Z MIN.  LIMIT 

00143'006422 

JSR 

6. 

' " & Z MAX,  - BOT,  Z MAX, 

00144"000000  ZTMXA; 

0 

;r  TOP  Z MAX.  LIMIT 

00145’000000  ZBMXA; 

0 

r SOT.  2 MAX.  LIMIT 

00146 "000166 ' 

TE  MAI 

' RESULT 

0014  7 "020420 

LDA 

0.  TEMA2 

.'GET  M 

001 50-030774 

LDA 

2.  ZTMXA 

.'GET  AI-  ' ‘ ' 4-  z MAX.  LIMIT 

0015i'1011l3 

MOVL# 

0. 0.  SNC 

rSKIP  IF  fit  top  z 

00152'030773 

LDA 

2.  ZBMXA 

.'GET  ADR,  Of  ; ’ MAX.  LIMIT 

00153-050475 

STA 

2.ZMAXA 

.'ADR,  OF  SMALl;  • Li  ZT 

00154 "000434 

JMP 

ARND2 

; JUMP  AROUND  DAT- 
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00155'000000  RETR.N; 

0 

001 56'000000  TSPCP; 

0 

00157" 000000  CNTR2: 

0 

00160-000000  TSPPA; 

0 

00161 '000000  TSPPXv 

0 

00162 '000000  ZLIMA; 

0 

001 63 ' 000000  SONL V ; 

0 

00164 "000000  TAGLY; 

0 

00165'1?7777  .F5UB; 

FFS  B 

001 66 ' 000000  TEMPI ; 

0 

00167 '000000  TEMA2; 

0 

00170-000000 

0 

001 71 '000000  LTSVA: 

0 

001 72'000000  TPLY: 

0 

001 73 '000000  BTLY; 

0 

00174' 000003  DBINC; 

3 

001 75 '177777  .LV'V'L; 

LYVEL 

001 76 ' 0001 77 " MAX'ZA ; 

MP.XZl 

00177-040100  MAXZl; 

040100 

;64  DEC. 

00200'077777  M.AXZ2; 

077777 

00201-177777  MPXZ'3; 

177777 

00202'000000  RETUN; 

0 

00203'000000  C.NTR1; 

0 

00204'177777  ,FMUL; 

FFML 

00205'1?7?77  ,FADD; 

FFAD 

00206 ' 000004  F OUR ; 

4 

0020 7 ' 000002  THO ; 

? 

00210-024762  ARND2: 

LDA 

l.TPLV 

: GET  TOP  LY.  NO. 

00211 '020762 

LDA 

0. BTLY 

.'GET  EOT.  LY.  NO. 

00212 '122400 

SUB 

1.0 

.'EOT.  LY,  .NO.  - TOP  LY.  NO. 

00213'030774 

LDA 

2.  THO 

00214' 142400 

SUB 

2.0 

00215 '040766 

STA 

0. CNTR1 

.'LOOP  COUNTER 

00216'101112 

MOV'Lf 

0. 0.  SZC 

00217'00042b 

JMP 

ARND3 

00220'101005 

MOV 

0. 0.  SNR 

00221 ' 000424 

JMF 

ARND3 

00222'030752 

LDA 

2.DBINC 

00223'020752 

LDP 

0, , LYVL 

00224-143000 

ADD 

2.0 

00225'0733 01 

MUL 

00226 " 044403 

STA 

1. LYVLA 

00227'006736  LOOP1; 

JSR 

fi.FSU B 

iZ  MIN.  LIMIT  - LY.  SND,  V£L. 

00230' 000000  ZMN 7 A ; 

0 

,'ADR.  OF  Z MIN,  LIMIT 

00231-000000  LYVLA; 

0 

:ADR.  OF  LY,  SND.  VEL. 

00232 '000166 ' 

TEMPI 

,'ADR.  OF  RESULT 

00233'020734 

LDP 

0. TEMP? 

.'GET  RESULT 

00234 ' 030775 

LDP 

2.  LYVLA 

.'GET  ADR. OF  LY,  SND,  VEL, 

00235'101102 

MOVL 

0.0. SZC 

,'SKIP  IF  Z MIN.  > OR  = LY.  SND 

00236 ' 050772 

3TP 

2.ZHNTA 

.'ADR.  OF  Z MIN,  LIMIT 

00237'151400 

INC 

2.2 

.'SET  UP  NEXT  LY.  SND,  VEL.  ADR 

00240-151400 

INC 

2.2 

00241'151400 

I NT 

2.2 

00242-050767 

STA 

I,  LYVLA 

00243'014?40 

DSZ 

CNTR1 

fSKIP  AFTER  LAST  LY,  CHECK 

00244 ' 000763 

JMF 

LOC'Fl 

f TEST  NEXT  LAYER 

00245'030763  ARND3: 

LDP 

2. ZMNTA 

I GET  ADR,  OF  Z MIM.  LIMIT 

00246 '050403 

STA 

2.  ZMINP 

.'FIX  Z MIN,  ADR, 

00247-006716 

JSR 

e.FSUB 

j Z MAX,  LIMIT  - Z MIN.  LIMIT 
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0004  ZLIM 
00250- 000000  ZMAxA: 
00251 '000000  ZMINA; 
08252' 000166' 

00253 '0207m 
002 54 '030704 
00255 '101113 
80255 ' 000407 
08257-01667?  EL I HR; 
00260'101000 
00261 '151400 
00262 '151400 
00263 '050675 
00264 '000437 
00265 ' 02 1 000  E NTR6 : 
00266-025001 
0025?’ 151400 
00270'151400 
00271'050667 
00272 "030667 
002 73 '04 1000 
00274 ' 045001 
00275-151400 
00276'151400 
002 77'050662 
00300 ' 034662 
00301 '030747 
00302 '021000 
00303 '041400 
003 04-021001 
00305'041401 
00306' 821082 
00307 "041402 
00 310'030741 
00311-021000 
00312'041403 
00313-021001 
00314-041404 
00315-021002 
003 16-041405 
00317'030655 
00320'157000 
00321'157000 
00322 '054640 
00323'014634  ENTR7: 
00324 '002407 
00325 ' 034630  ENDRR ; 
00326'001407 
00327'000000  TE MBl; 
00330-000000 
00331 '000000 
00332 '000327' TEMPS; 
00333 ' 000035 ' , LGP2 : 


0 

.'ADR.  OF  Z MAX.  LIMIT 

0 

.'ADR,  OF  Z MIN.  LIMIT 

TEMPI 

.'ADR,  OF  RESULT 

LDA 

0, TEMA2 

;'GET  RESULT 

LDA 

2, TSPPA 

.'GET  ADR.  OF  POSS.  MODES  TB, 

MOVLI 

0. 0<  SNC 

! SKIP  IF  Z MIN.  > Z MAX. 

JM  P 

ENTR6 

.'LIMITS  ARE  ALLOWED 

DSZ 

STSPCA 

MOV 

0.0 

INC 

2.2 

INC 

2.2 

STA 

2. TSPPA 

JM P 

ENTR7 

LDA 

0.0.2 

LDA 

1.1.2 

INC 

2.2 

INC 

2.2 

STA 

2.  TSPPA 

LDA 

2. TSPPX 

STA 

0. 0.2 

STA 

1.1.2 

INC 

2.2 

INC 

2.2 

STA 

2. TSPPX 

LDA 

3.ZLIMA 

.'GET  ADR,  OF  Z LIMIT  TB. 

LDA 

2.  ZMAXA 

.'GET  Z MAX.  LIMIT 

LDA 

0.0.2 

.'STORE  DATA  IN  Z LIMITS  TB. 

STA 

0,  0.  3 

LDA 

0.1.2 

STA 

0.1.3 

LDA 

0.2,2 

STA 

0. 2. 3 

LDA 

2. ZMINA 

.'GET  Z MIN.  LIMIT 

LDA 

0,0.2 

.'STORE  DATA  IN  Z LIMIT  TB. 

STA 

0. 3. 3 

LDA 

0,1.2 

STA 

0.4.3 

LDA 

0,2,2 

STC 

0. 5. 3 

LDA 

2. DBINC 

.'GET  DATA  BLOCK  INCREMENT 

ADD 

2,3 

ADD 

2. 3 

STA 

3.ZLIMA 

DSZ 

CNTR2 

(SKIP  IF  THIS  WAS  LAST  MODE 

JMP 

§ , L0P2 

,'  DO  NEXT  MODE 

LDA 

3.RETRN 

.'GET  RETURN  ADR. 

JMP 

7,3 

; RETURN 

0 

0 

0 

TEMBl 

LDQP2 

.END 

I 


i; 


I 
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MNMX  SUBROUTINE 

1.  The  MNMX  subroutine  computes  both  the  horizontal  range  between 
the  target  and  sonobuoy  and  also  the  minimum  and  maximum  number  of 
ray  path  half  cycles  that  may  exist  within  each  mode  in  A1PP.  This 
subroutine  also  forms  the  partial  code  word  table. 

2.  PR OPM 

3.  JSR@  .MNMX 

. 

.SnXH 

.TmXH 

A1PCT 

A1PP 

A1ZL 

A1MM 

A1HR 

A1CW 


.MNMX:  MNMX 

PPMP,  FINi,  FIN2,  and  CPHR 

.SnXH,  .TmXH,  A1PCT,  A1PP,  A1ZL,  and  CRG1 

A1MM,  A1HR,  and  A1CW 

C-42 


NSWC/WOL/TR  75-115 


7.  See  Figure  C5  .. 

8.  See  Listing  C5. 

9.  a.  This  subroutine  sets  up  a partial  central  data  table  which 

contains  data  needed  by  the  FIN1  and  FIN2  subroutines  to 
calculate  the  half  cycle  ocean  parameters  for  a given  ray 
path . 

b.  A partial  code  word  is  a 16  bit  word  which  contains  the 
following  information  about  a ray  path: 

BITS  0 through  2 — TPNUM  (0  to  3) 

BITS  3 through  5 — BTNUM  (1  to  4) 

This  information  is  extracted  directly  from  A1PP. 
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:UBR1  ENTRY 


RETU  N 


JSR  E INI  AND  FINE  .WITH 
ADDRESS  OF  MNMX  DATA  TABLE 
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.NREL 

.TITL 

MNMX 

i 05/01/14 

000010 

.RDx 

6 

.ENT 

MNMX 

. EXTN 

FFAD 

.EX  TN 

FFSB 

.EXTN 

FFXD 

.EXT N 

FFDV 

.EXTN 

FIN1 

.EXTN 

F1N2 

.EXTN 

CR‘3l 

.EXTN 

CPHR 

00000 ' 000003  DB I HC : 

S' 

00001 ‘000000  P FONT: 

0 

00000 '000000  PPATA; 

0 

00003 ‘000000  ZLIMA: 

0 

00004 '000000  PPZLA: 

0 

00005' 000161 ' .RETH: 

RETRN 

00006' 056111  MNMX; 

sta 

S3. . RETNi SAVE  RETURN  ADR, 

00001 ‘021400 

LDA 

0, 0, 3 

:GET  ADR.  OF  SONQ.  TE. 

00010 ‘040422 

STA 

0. SNXAD 

,'ADR,  OF  SONQ.  X 

00011' 021401 

LDA 

0.1.3 

rGET  ADR.  OF  TARGET  TB. 

00012 ‘040421 

ST  ft 

0. TGXAD 

,'ADR,  OF  TG,  X 

00013 '031402 

LDA 

£.2.3 

i GET  ADR,  OF  NO. FOSS.  MODES 

00014' 021000 

LDA 

0. 0.2 

i GET  NO, OF  POSS,  MODES 

00015' 040164 

STA 

0.  FRONT 

00016 '021403 

LDA 

0, 3. 3 

,'GET  ADR, OF  POSS.  MODES  TB. 

00011 ‘040163 

STA 

0.PPATA 

00020 '021404 

LDA 

0.4.3 

.'GET  ADR.  OF  Z LIMIT  TB. 

00021 '040162 

STA 

0.ZLIMA 

00022' 021405 

LDA 

0.5.3 

,'GET  ADR.  OF  MN,  - MX.  TB. 

00023 ‘040522 

STA 

0. MNXTA 

00024 ‘021406 

LDA 

0. 6. 3 

.'GET  ADR.  OF  ACT.  HOR.  RNG. 

00025' 040401 

STA 

0.  TSHRA 

00026 '040500 

STA 

0.  TS.hrb 

00021' 021401 

LDA 

0. 7. 3 

.'GET  ADR.  OF  PARTIAL  CD,  HD.  TB 

00030' 040154 

STA 

0. PPZLA 

00031 '006533 

J5R 

6 , CPHR 

00032' 000000  SNXAD; 

0 

00033 '000000  T6XAD; 

0 

00034 '000000  TSHRA; 

0 

00035 '030145 

LDA 

2.FPATA 

.'GET  ADR,  OF  POSS.  MODES  TB. 

00036' 021000  LOOP1 : 

LDA 

0.0.2 

,'GET  TOP  LAYER  NO, 

00031 '025001 

LDA 

1.1.2 

,'GET  EOT.  LAYER  NO. 

00040' 040541 

ST  ft 

0. TFNUM 

00041' 044541 

STA 

l.BTNUM 

00042' 103120 

ADDZL 

0.0 

.'MAKE  PARTIAL  CODE  WORD 

00043' 101120 

MOVZL 

0.0 

00044 ‘123120 

ADDZL 

1.0 

00045' 101120 

MOVZL 

0.0 

00046' 115300 

MOVS 

0.3 

00041' 030134 

LDA 

2.ZLIMA 

.'GET  Z LIMITS  ADR. 

00050' 145000 

NOV 

2.1 

00051 '021000 

LDA 

0.0.2 

00052' 040532 

STA 

0.ZVAL1 

00053' 021001 

LDA 

0.1.2 

00054' 040531 

STA 

0.ZVAL2 

00055 ‘021002 

LDA 

0.2.2 
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00056 ' 040530 

STA 

0. ZVAL3 

0005?' 030725 

LDA 

2.PPZLA 

00060 '055000 

STA 

3.0.2 

00061 '045001 

STA 

1.1. £ 

00062 '151400 

INC 

2.2 

00063' 151400 

INC 

2.2 

00064'050720 

STA 

2.PPZLA 

00065 ' 004433 

J SR 

SUBR1 

00066'0247 12 

LDA 

l.DBINC 

00067'030714 

LDA 

2.ZLIMA 

00070'133000 

ADD 

1.2 

00071'021000 

LDA 

0. 0.2 

00072'040512 

STA 

0. ZVAL1 

00073-02 1001 

LDA 

0,1.2 

00074-0405 11 

STA 

0, ZVAL2 

00075'021002 

LDA 

0,2.2 

00076-040510 

STA 

0, ZVAL3 

00077-133000 

ADD 

1.2 

00100-050703 

STA 

2.ZLIMA 

00101-006454 

JSR 

g.FADD 

00102-000204' 

ZV'ALl 

0010 3-000156' 

FGA1 

00104'000204' 

ZV'ALl 

001 05 -004413 

JSR 

SUBR1 

00106'014673 

DSZ 

PPCNT 

00107-000402 

JMP 

, +2 

00110-00040 6 

JMP 

ENDRR 

00111-030671 

LDA 

2, PPPTP 

00112-151400 

INC 

2.2 

00113'15 1400 

INC 

2,2 

00114-050666 

STA 

2.PPATA 

00115'000721 

JMP 

L00P1 

00116'034443  ENDRR; 

LDP 

3.  RETRN 

00117-001410 

JMP 

10,  3 

00120-054443  SUBR1: 

STA 

3. RETUN 

001 21-006444 

JSR 

6.FIN1 

00122-000161' 

RETRN 

0012 3-006443 

JSR 

A.FIN2 

00124-000161' 

RETRN 

00125-006442 

JSR 

S.FD1V 

00126*000000  T5.HRB; 

0 

00127'17?7?7 

CRGl 

0013 0-0001 71  - 

TEMPI 

00131 '006431 

JSR 

i.FSUB 

00132-000171' 

TEMPI 

00133-000177' 

MAXL1 

00134-000174' 

TE.MEl 

00135-020440 

LDP 

0. TEMB2 

00136'030432 

LDP 

2. MAXLA 

00137-101102 

MOVL 

0. 0,  szc 

001 40-030442 

LDA 

2.  TEMPP 

00141 '050402 

STA 

2,  TEMFF 

00142" 006441 

JSR 

g.FXDP 

00 1 4 3 ' 000000  T EMPF  ; 

0 

00144'000020 

20 

00145-000000  MNXTA; 

0 

00146-030777 

LDA 

2. MNXTA 

00147-151400 

INC 

2.2 

00150-151400 

INC 

2.2 

I GET  ADR , OF  PARTIAL  CD.  HD.  TB, 
.'STORE  PARTIAL  CODE  WORD 
.'STORE  ADR.  OF  Z LIMITS 
.'SET  UP  NEXT  ADR. 


.'FIND  M N.  - MX.  HALF  CYC. 
.'GET  DATA  BASE  INCREMENT 
.'GET  Z LIMITS  ADR. 
rSET  UP  NEXT  Z LIMITS  ADR.'S 


.'FIND  MN.  - MX,  HALF  CYC, 
.'SKIP  IF  ALL  MODES  CHECKED 
.'SKIP 
.'END 

.'GET  ADR.  Of  POSS,  MODES  TB. 
;'SET  UP  NEXT  ADR, 


.'DO  NEXT  MODE 
.'GET  RETURN  ADR, 

.'RETURN 

.'SAVE  RETURN  ADR. 

,' COMPUTE  HALF  CYC,  HOR,  RNG, 


.'fACT.  HOR.  RNG.. Vf HALF  CYC, RNG, 
.-ADR.  OF  ACT.  HOR.  RNG. 

;ADR,  OF  HALF  CYC,  HOR.  RNG. 

; ADR . OF  RESULT 

.'.NO,  OF  HALF  CYC.  - MX.  NO, 

; ADR , OF  COMPUTED  NO.  OF  HALF  CYC. 
ADR , OF  MX.  LIMIT  NO. 

.'ADR,  OF  RESULT 
.'GET  RESULT 

i'GET  ADR,  OF  MX,  LIMIT  NO, 

J SKIP  IF  LIMIT  REACHED 
.'GET  ADR,  OF  COMPUTED  RESULT 
r STORE  THIS  ADR. 

.'FIX  POINT  THE  NO. OF  CYC. 

.'ADR.  OF  NO.  OF  HALF  CYCLES 
:B16  DP 

.'ADR.  OF  MN,  - MX.  TB. 

.'GET  ADR.  OF  MN.  - MX.  TB. 

.'SET  UP  NEXT  ADR, 
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0003  MNMX 
00151' 050774 
00152' 1 01000 
00153 '034410 
00154 '001400 
00155' 17777?  .FADD: 
00156'037762  FGAlr 
00157-077777 
00160-177777 
00161-000000  RETRN; 
00162-17777?  .FSUB: 
00163' 000000  RETUN; 
0016^- 17777?  .CP, HR; 
00165-17777?  .F1N1: 
00166' 177777  .FINS: 
001 67-177777  .FDIVf 
001 70'0001 77'MfiXLA; 
00171-000000  TEMPI; 
00172-000000 
001 73 '000000 
00174 '000000  TEMB1 ; 
00175' 000000  TEMB2: 
001 76 '000000 
00177-0A0013  MAXL1; 
00200-040000 
00201 ' 000000 
00202 -0001 71' TEMFP; 
00203'17?777  ,FXDP: 
00204 '000000  ZV'ALl: 
0020 5 '000000  ZVAL2: 
00206-000000  ZVALS: 
0020 7-000000  TFNUM: 
00210-000000  B TNUM - 
00211 '000000 
00212' 000000 
00213-000000 
00214-000000  FN1S.K: 
00215' 000000  FN2SK; 
00216 '000000 
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3TA  2.MNXTA 

MOV  0.0  r JSR  3 

LDA  3. RETUN  ; GET  RETURN  ADR. 

JMP  0.3  : RETURN 

FF  AD 
037762 
077777 
177777 
0 

FFSB 

0 

CFHR 
F INI 
FINE 
FFDV 
MAXL1 
0 
0 
0 
0 
0 
0 

40013 

40000 

0 

TEMPI 

FFXD 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

.END 
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NRMD  SUBROUTINE 

1.  The  NRMD  subroutine  calls  the  three  ray  path  solution  subroutines 
for  the  three  layer  ocean  model.  This  subroutine  also  sets  up  a 
central  data  base  and  computes  the  square  of  the  target  and  sonobuoy 
sound  velocities. 

2 . PROPM 

3.  JSR@  NRMD 
SLY1 
SLYA 
SVL1 
SVLA 
A1HR 
A1PCT 
A1CW 
A1MM 
mnNLP 
mnLPW 
mlNBS 
mlBST 
mnNBM 
mnBMS 
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4.  FPMP,  Nl,  N2,  and  N3 

5.  SLY1,  SLYA,  SVL1,  SVLA,  A1HR,  A1PCT,  A1CW,  A1MM 
mnNLP,  mnLPW,  mlNBS , mlBST,  mnNBM , and  mnBMS. 

6.  SNSQ1  and  TGSQ1 

7.  See  Figure  C6  , 

8 . See  Listing  C6  - 

9.  The  central  data  base  contains  most  of  the  data  needed  to 
calculate  the  ocean  parameters  for  a given  ray  path.  The  two 
flags  FN1SK  and  FN2SK  control  parts  of  the  calculation  in  the 
FIN1  and  FIN2  subroutines. 
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0001  NRMD 


000010 


00000 '054503  NRMD; 
00001' 031 400 
00002 '021000 
00003 '040525 
00004 '031401 
00005 '021000 
00006 '040523 
00007 '031402 
00010 '021000 
00011 '040503 
00012 '021001 
0001 3 '040502 
00014 '021002 
00015 '040501 
00016 '031403 
0001 7 '021000 
00020 '0404 77 
00021 '021001 
00022 '040476 
00023 '021002 
00024 '040475 
00025 '03 1404 
00026 '021000 
00027 '040462 
00030 '021001 
00031 '040461 
00032 '021002 
00033 '040460 
00034 '031405 
00035 '050430 
00036 '031406 
00037 '050427 
00040 '031 407 
00041 '050426 
00042 '031410 
00043 '050426 
00044 '031411 
00045 '050425 
00046 '031412 
0004  ? '0504 30 
00050*031413 
00051 '05042? 

00052 '031414 
00053 '050420 
00054 '031415 
00055 '05041? 

00056 '006431 
00057 '0001 14' 
00060 '000122' 
00061 '006426 


.NREL 

.TITL 

.RDX 

.ENT 

.ENT 

.EXTN 

.EXTN 

.EXTN 

.EXTN 

STA 

LDA 

LDA 

STA 

LDA 

LDA 

STA 

LDA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

JSR 

50SV1 

SNSfll 

JSR 
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NRMD 

S 

NRMD 
BGDAT 
N1 
N2 
N3 
efsq 
3,  RETRN 
2.0.3 
0.0.2 
0.SONLN 

2.1.3 
0.0.2 
0.  TAGLN 

2.2.3 
0.0.2 
0.SOSV1 
0.1.2 
0.  SOS 72 
0.2.2 
0.  SOSV3 

2.3.3 
0.0.2 
0.  TASV1 
0.1.2 
0.  TASV2 
0.2.2 
0.  TASV3 

2.4.3 
0.0.2 
0.HRRH1 
0.1.2 
0.HRRH2 
0.2.2 
0.HRRHS 

2.5.3 
2.  TSNPC 

2.6.3 
2.  TSCH 

2.7.3 
2.  TSMM 

2.10.3 
2.  T5NLP 

2.11.3 
2. TSLPH 

2.12.3 
2,  TS.NBS 

2. 13. 3 
2.  TSBST 

2.14.3 
2.  TSNBM 

2.15.3 
2.  TSBMS 
g.FSQR 


.'05/08/74 


.'SAVE  RETURN  ADR 

.'GET  ADR.  OF  SONO,  LY.  NO. 

.'GET  SONO.  LY.  NO. 


.'GET  ADR.  OF  TARG.  LY.  NO. 
.'GET  TARGET  LY.  NO. 


.'GET  SONO.  SND.  VEL.  ADR. 
.'GET  SONO.  SND.  VEL. 


.'GET  TARG.  SND.  VEL.  ADR. 
.'GET  TARG.  SND.  VEL. 


.'GET  ADR.  OF  HOR.  RN6. 
.'GET  HOR,  RNG. 


GET  ADR,  OF  NO.  OF  PART,  CD.  HD.  TB. 


GET  ADR, DEPART.  CD,  HD,  TB. 


GET  ADR,  OF  MN.  MX.  TB. 


GET  ADR.  OF  NO,  LAST  POSS.  Pi H,  CD.  HD, 


GET  ADR.  OF  LAST  POSS,  PH.  CD.  HD.  TB, 


GET  ADR.  OF  NO.  OF  BASIC  SOL,  TB 


GET  ADR,  OF  BASIC  SOL.  TB. 


GET  ADR,  OF  NO,  OF  BOMBING  SITES 


GET  ADR,  OF  BOMBING  SITES  TB, 


I SONO,  SND,  VEL.)  a2 


g.FSQR  ;(TG.  SND.  VEL,)a2 
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0002  mo 

00062 '0001 17'  TRSV1 

00063 '000125'  T6SQ1 

00064'  006420  JSR 

00065 '000000  TSHFC:  0 
60066 '000000  TSCH;  0 
00067'000000  TSMM?  0 
00070 '006415  JSR 

00071  ‘000000  TSi NLP;  0 
00072 '000000  TSLPW;  0 
00073 '000000  TSNBM;  0 
00074 '000000  TSB.MS;  0 
00075' 0001 10'  BGDAT 

00076 '006410  JSR 

00077 '000000  TSNBS,  0 
00100" 000000  TSB5T:  0 
00101 '034402  LDR 

00102 '001416  JMP 


00103' 000000  RETRN;  0 
00104 '177777  .Nit*  N1 
00105 '177777  M:  N2 

00106 '177777  ..No;  N3 
00107' 177777  .FSQR:  FFSO 
001 10 ' 000000  BGDAT;  0 
00111 '000000  HRRH1;  0 
00112' 000000  HRRH 2:  0 
00113'000000  HRRH3;  0 
00114 '000000  SOS VI;  0 
00115 '000000  SQSV2;  0 
001 16 '000000  S0SV3;  0 
00117' 000000  mvi:  0 
00120 '000000  TA3V2;  0 
001 21' 000000  TASVS;  0 
00122' 000000  SNSfll ; 0 
00123' 000000  0 

00124 ‘600000  0 

00125' 000000  TGSQ1 ; 0 
00126 '000000  0 
00127 '000000  0 

001 30 '000000  SONLN;  0 
00131 '000000  TAGLN:  0 
00132' 000000  CODEH ; 0 
00133 '000000  mi;  0 
001 34 '000000  0 

001 35 '000000  0 

00136 '000000  TPNUM;  0 
00137'000000  BTNUM;  0 
00140 '000000  DIRMD;  0 
00141 ' 000000  SGHDV:  0 
00142 '000000  NUHCV;  0 
00143 '000001  FN1SK;  1 
00144 '000000  FN25K;  0 
00145' 000000  NONRL:  0 
00146 '000000  ZMfiXl;  0 
00147' 000000  0 

00150 '000000  0 

.END 


e.Ni 


e.  N2 


S.N3 


3.RETRN  .'GET  RETURN  ADR. 
16.3  .'RETURN 


;0 

;1 


.'4 


.'7 


.'15 


.'20 

.'21 

.'23 


.'26 
.'27 
.'30 
;3i 
; 32 
.'33 
.'34 
.'35 
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N1  SUBROUTINE 


1.  The  N1  subroutine  forms  a table  of  possible  path  code  words 
which  contains  all  the  ray  paths  that  may  exist  between  the  target 
and  sonobuoy . 


2 . NRMD 


JSR@  . N1 


A1PCT 


A1CW 


A1MM 


4 . NONE 

5.  A1PCT,  A1CW,  and  A1MM 

6.  TSNPW  and  TSPCW 

7.  See  Figure  C7  .. 

8.  See  Listing  C7. 

9.  A code  word  is  a 16  bit  word  which  contains  the  following 
information  about  a ray  path: 

BITS  0 through  2 — TPNUM  (0  to  3) 

BITS  3 through  5 --  BTNUM  (1  to  4) 
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BIT  6 ~ DIRMD  (1  or  0) 

BITS  7 through  14  — NUMCY  (-1  to  127) 

BIT  15  — SGNDV  *(1  or  0) 

with  BIT  0 as  the  left  most  bit  of  the  word. 


HadW 
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0001  Ml 

.NREL 

.TITL 

000010  ,RDX 

.ENT 
.ENT 
.EXT N 
.EXTN 

00000 ' 054523  Nl:  STA 

00001' 031 400  LDA 

00002 '021000  LDA 

00003 '040521  STA 

00004 '031401  LDA 

00005 '050520  STA 

00006 '031402  LDA 

00007 '05051?  STA 

00010 '03051?  LDA 

00011 '050517  STA 

00012 '102400  SUB 

00013 '04051?  STA 

00014 '030512  LQ0P2:  LDA 
00015 '021000  LDA 

00016 '025002  LDA 

00017' 106512  5UBL# 

, 00020 '000403  JHP 

00021 '040512  STA 

00022 '000402  JHP 

00023 '044510  ENTRlt  STA 
00024 ' 106400  E.NT.R2;  SUB 
00025 '125112  MOVLt 

00026 '124400  NEC 

00027' 125400  INC 

00030 '125400  INC 

00031 '044503  STA 

00032 '020503  LDA 

00033'122512  SUBLI 

00034 '040500  STA 

00035 '151400  INC 

00036 '151400  INC 

00037' 151400  INC 

00040 '151400  INC 

00041 '050465  STA 

00042 '102520  SUBZL 

00043 '030470  LDA 

00044 '112400  SUB 

00045 '176400  SUB 

00046 '151112  HOVLf 

00047 '175400  INC 

00050 '054473  STA 

00051 '020471  LDA 

00052 '113400  AND 

00053 '050460  STA 

00054 '030451  LDA 

00055 '021000  LDA 

00056 '040460  STA 

0005 7 '024465  LDA 

00060 '176520  SUBZL 

00061 '106414  SUB# 

00062 '000402  JMP 

00063 '176400  SUB 


Nl  ;05/09/?4 

8 

Nl 

MXCYT 

TSNPH 

T5PCW 

3.RETRN  .'SAVE  RETURN  ADR. 

2.0. 3  .'GET  ADR,  Of  NO,  PART.  CD.  WDS. 

0.0.2  .'GET  NO,  OF  PART,  CD,  WDS. 

0. NOPCW 

2!  1.3  .'GET  ADR.  OF  PART.  CD.  HD.  TB. 
p.  PCWTA 

2.2.3  .'GET  ADR.  OF  MN.-  MX.  TB. 

2.MMTBA 

2.  .PPCW  .'GET  ADR.  OF  P QSS.  PH,  CD.  WD.  TB. 

? PPPLJT 

0.0  .'ZERO  IN  AC0 

0.NPPCW 

2.MMTBA  .'GET  ADR,  OF  MN.  - MX,  TB 
0.0.2  .'MN.  NO,  OF  HAL F CYC. 

1,2,2  I MX,  NO.  OF  HALF  CYC. 

0,1. SZC  .'SKIP  IF  MN  < MX 
ENTR1 

0. NMHCC  .'STORE  MN.  NO.  OF  HF.  CYC. 

ENT  R2 

1. NMHCC  .'STORE  MN,  NO,  OF  HF.  CYC. 

0. 1  .'DIFF.  BETH.  MN.  AND  MX. 

1.1. SZC  .'NEGATIVE  TEST 

1.1  .'MAKE  NEGATIVE 

1.1  .' INCREMENT  BY  TWO 

1.1 

1. CYCNT  .'STORE  NO.  OF  HF,  CYC  TO  TEST 
0. MXCYT  .'MAX,  LIMIT  FOR  NO.  TO  TEST 

1.0.  5ZC  .'SKIP  IF  NOT  MAX. 

0.CYCNT  ,'USE  MAX,  NO.  FOR  TESTING 

2.2  .'SET  UP  NEXT  MN.  - MX.  TB.  ADR. 

2.2 

2.2 

2.2 

2. MMTBA 

0.0  .'ONE  IN  AC0 

2. NMHCC  .'GET  MN.  NO.  OF  HF.  CYC, 

0.2  ;SUB.  ONE 

3. 3 

2. 2.  SZC 

3.3 

3. DPFL6 
0, MASK 
0.2 

2.NMHCC 

2. PCWTA  .'GET  ADR.  OF  PART.  CD.  WD.  TB. 
0.0.2  f GET  PART,  CODE  WORD 
0. PCDHU  {STORE  PART.  UP  CODE  WORD 
1. SMDCW 

3.3 

0.1. 5ZR 
ARND5 
0 . 3 


' 
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0002  N1 


00064-  054461 

ARNDSr  STA 

3.  SMDFG 

00065 '024452 

LDA 

1. DNDRB 

.'GET  DOWN  DIRECTION  BIT 

00066 '123000 

ADD 

1/0 

.'ADD  BIT 

0006 7 '040451 

STA 

0, PCDHD 

i STORE  PART.  DN.  CODE  WORD 

00070 '035001 

LDA 

3/1.2 

.'GET  ADR.  OF  Z LIMITS 

00071 '054450 
00072 '151400 

STA 

3, ZLIMA 

INC 

2,2 

.'SET  UP  NEXT  PART.  CD.  HD.  ADR. 

00073 '151400 

INC 

2,2 

00074 '050431 

STA 

2.PCNTA 

00075 '020441 

L00P1 ; LDP 

0,  PCDWU 

;GET  PART.  UP  CODE  WORD 

00076 '004450 

J SR 

SUBR1 

00077 '020444 

LDA 

0.DPFLG 

00100 '101004 

.MOV 

0,0,  SZ R 

00101 '000403 

JMP 

ARND1 

00102 '020436 

LDA 

0, PCDHD 

.'GET  PART.  DN.  CODE  WORD 

001 03 '004443 

J SR 

SUBR1 

00104 '102400 

AR.NDl:  SUB 

0,0 

00105 '040436 

STA 

B.  DPFLG 

00106 '020425 

LDA 

0, NHHCC 

.'GET  NO.  OF  HALF  CYC. 

00107' 101400 

INC 

0,0 

.'  ADD  ONE 

001 10 '024432 

LDA 

1 , MASK 

00111 '123400 

AND 

1,0 

001 12 '040421 

STA 

0/NMHCC 

:SET  UP  NEXT  NO.  OF  HF.  CYC, 

00113'014421 

DSZ 

CYCNT 

.'SKIP  IF  LAST  HF,  CYC-  DONE 

00114 '000761 

JMP 

LOOP1 

,'DO  NEXT  HF,  CYC. 

001 15 '014407 

DSZ 

NOPCH 

.'SKIP  IF  LAST  PART.  CD.  HD.  DONE 

001 16 '000676 

JMP 

L00P2 

.'DO  NEXT  PARTIAL  CD.  WD. 

001 17 '020413 

LDA 

0.  NPPCW 

.'GET  NO.  OF  POSS,  PH.  CD.  WD. 

00120 '042411 

STA 

§0. NPCWA.' STORE  .NO.  IN  DATA  TB 

00121 '034402 

LDP 

3, RETRN 

.'GET  RETURN  ADR. 

00122 '001 403 

JMP 

3.3 

.'RETURN 

00123 '000000 

RETRN 

0 

00124 '000000 

NOPCH 

0 

001 25 '000000 

PCHTP 

0 

001 26 '000000 

MMTBA 

0 

00127 '177777 

.PFCHT:  TSPCH 

00 130 '000000 

PPCHT 

0 

00131 '177777 

NPCWA 

TSNPH 

001 32 '000000 

NpPCW 

0 

001 33 '000000 

NMHCC 

0 

00134 '000000 

CYCNT 

0 

001 35 '000004 

MXCYT 

4 

00136 '000000 

PCDHLi 

0 

00137'001000 

DNDRB 

1000 

00140 '000000 

PCDHD 

0 

00141 '000000 

ZLIMA 

0 

00142 '000377 

MASK; 

000377 

001 43 '000000 

DPFLG 

0 

00 144'010000 

5MDCW;  010000 

00145 '000000 

SMDFG 

0 

00146'054427 

SUBR1 

STA 

3.  RETUN 

.'SAVE  RETURN  ADR. 

00147'024764 

LDA 

l.NMHCC 

.'GET  NO,  OF  HF,  CYC, 

001 50'125120 

MQVZL 

1,1 

00151'123000 

ADD 

1,0 

.'ADD  IN  NO.  OF  HF.  CYC. 

00152 '030756 

LDA 

2, PPCHT 

001 53'024766 

LDA 

1. ZLIMA 

00154'034?71 

LDA 

3, SMDFG 

00155'175005 

MOV 

3, 3, SNR 

00156'000406 

JMP 

SOLND 
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0003  N1 
0015? '041000 
001 60 '045001 
00161 '151400 
00162 '151400 
00163 '010747 
00164 '101400  SOLND; 
00165 '041000 
00166 '045001 
00167' 151400 
001 70 '151400 
, 00171 '010741 

001 72 '050736  SUBEN: 
f 001 73 '034402 

00174'001400 

001 75 '000000  RETUN: 
I 
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STA 

0.0.2 

STA 

1.1.2 

INC 

2.2 

INC 

2.2 

ISZ 

NPpCW 

INC 

0.0 

STA 

0.0.2 

STA 

1.1.2 

INC 

2.2 

INC 

2.2 

132 

NPPCW 

STA 

2. PPCWT 

LDA 

3. RETUN 

JMP 

0.3 

0 

.END 
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N2  SUBROUTINE 


1.  The  N2  subroutine  updates  all  of  the  ray  path  solutions  that  were 
computed  on  the  preceding  pass  through  the  three  layer  ocean  routines. 
The  subroutine  then  finds  the  ocean  propagation  parameters  for  any  new 
ray  paths  that  may  now  exist  because  of  a change  in  target-sonobuoy 
geometry  or  ocean  conditions  from  the  preceding  pass. 

2.  NRMD 

3.  JSR@  . N2 
mnNLP 
mnLPW 
mnNBM 
mnBMS 
BGDAT 


. N2 : N2 

4.  NR1  and  NR 2 


5. 

mnNLP,  mnLPW, 

mnNBM , mnBMS , 

TSNPW, 

TSPCW, 

BOMFG , 

and  ZVAL1 

6. 

mnNLP , mnLPW, 

mnNBM , mnBMS , 

CODEW, 

ZVATA, 

ZMXAD, 

ZMNAD,  and 

ZVAL1 . 

7. 

See  Figure  C8 

4 
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8.  See  Listing  C8  , 

9.  a.  This  subroutine  provides  the  code  word,  starting  z value, 

and  the  z limits  for  the  NR1  and  NR2  Newton-Raphson 

computation  subroutines. 

b.  The  N2  subroutine  operates  in  the  following  manner: 

1.  All  of  the  solutions  in  mnLPW  are  run  in  the  Newton- 
Raphson  computation  loop  until  the  solution  is  updated 

or  found  invalid.  Solutions  that  exist  both  in  mnLPW  and 
TSPCW  are  deleted  from  TSPCW.  If  a solution  in  mnLPW  is 
not  also  included  in  TSPCW,  it  is  invalid  and  deleted. 

2.  After  all  of  the  solution  in  mnLPW  are  examined,  the 
possible  ray  paths  remaining  in  TSPCW  are  run  in  the 
Newton-Raphson  computation  loop  until  a solution  is 
found  or  until  invalidated.  All  valid  solutions  are 
stored  in  mnLPW  so  that  they  can  be  updated  on  the 
next  pass  through  the  three  layer  ocean  routines. 

3.  Bookkeeping  is  required  in  managing  the  changing 
solutions  in  mnLPW.  The  mnBMS  table  is  rsed  to  accomplish 
this  task.  Any  solution  in  mnLPW  which  becomes  invalid 
has  its  address  in  mnLPW  stored  in  mnBMS . Any  new 
solutions  which  are  added  are  placed  at  addresses 

in  mnLPW  which  are  stored  in  mnBMS.  If  no  addresses 
exist  in  mnBMS,  the  new  solution  is  added  at  the 
end  of  the  mnL^W  table.  Solutions  are  deleted  from 
the  mnLPW  table  by  zeroing  their  code  words. 
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l 


I 


> ■ T- 


0001  N2 


.NREL 
. TITL 

N2 

003010 

,RDX 

8 

.ENT 

N2 

.EXTN 

ZVATA 

.EXTN 

ZMXAD 

.EXTN 

2MNAD 

.EXTN 

TSNPH 

.EXTN 

TSPCH 

.EXTN 

NRl 

.EXTN 

NR2 

.EXTN 

BOMFG 

00000 '054550  N2: 

STA 

3.RETRN 

00001 '031400 

LDA 

2.0.3 

00002 '050547 

STA 

2.NLPPA 

00005 '021 000 

LDA 

0.0.2 

00004 '040546 

STA 

0. NOLPP 

00605 '031401 

LDA 

2.1.3 

00006 '050545 

STA 

2.LPWAD 

00007 '022545 

LDA 

80.  NPCWA, 

00010 '040546 

STA 

0.NPPCW 

00611 '036544 

LDA 

2. .PPCW 

00012 '050545 

STA 

2.PPCWT 

0001 3 '031 402 

LDA 

2.2.3 

00014 '050544 

STA 

2.N0BMA 

00015 '021000 

LDA 

0.0.2 

00016 '040543 

STA 

0.NOBMS 

00017'031403 

LDA 

2.3.3 

00020 '113000 

ADD 

0.2 

00021 '050541 

STA 

2.BMSTB 

00022 '021404 

LDA 

0.4.3 

00023 '040465 

STA 

0.  DATAD 

00024 '020526 

LDA 

0. NOLPP 

00025 '101005 

MOV 

0.0.  SNR 

00026 '000551 

JMP 

NEWSL 

00027 '040534 

STA 

0.CNTR1 

00030 '030523 

LDA 

2.LPWAD 

00031'021000  LDOF1: 

LDA 

0.0.2 

00032'101004 

MOV 

0,0.  SZR 

00033'000405 

JMP 

ARND1 

00034'024530 

LDA 

l.FOUR 

00035-133000 

ADD 

1.2 

00036-050515 

STA 

2. LPWAD 

00037-000772 

JMP 

LOOP1 

00040'040525  ARNDlr 

STA 

0. CODEH 

00041 '030516 

LDA 

2.PPCWT  ; 

00042'050524 

STA 

2.PTFPC 

00043'020513 

LDA 

0.NPPCW 

00044'101005 

MOV 

0.0. SNR 

00045'000447 

JMP 

ENTR3 

00046'0405 21 

STA 

0. NOPFC 

00047'021000  L00P2: 

LDA 

0.0.2 

00050 '101004 

MOV 

0.0. SZR 

00051 '000405 

JMP 

ARND2 

00052-151400 

INC 

2.2 

00053-151400 

INC 

2.2 

00054'050512 

STA 

2.PTPPC 

00055'000772 

JMP 

L00P2 

: 05/08/74 


:GET  ADR,  OF  NO.  LAST  POSS.  PH.  CD.  WDS. 
.'GET  NO. LAST  FOSS.  PH.  CD.  WDS. 

;6ET  ADR.  LAST  POSS.  PH.  CD.  WD.  TB. 


.'GET  ADR.  OF  NO. OF  BOMBING  SITES 
.'GET  NO.  OF  BOMBING  SITES 


.'GET  ADR.  OF  BOMBING  SITES  TB. 
.'ADR.  OF  LAST  BOMBING  SITE  + 1 


.'DATA  TB.  ADR. 


.'DO  NEW  SOLUTIONS 


.'GET  CODE  WORD 


.'  DELETE  THIS  OLD  SOLUTION 

.'GET  CD.  WD.  FROM  POSS.  PH.  CD.  WDS. 
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00056' 02^4507  ARND2: 

LDA 

1. CODEW  i GET  CD.  WD.  FROM  LAST  POSS,  PH.  CD.  HDS. 

00057' 106415 

SUB# 

0.1. SNR  .'SKIP  IF  CD.  WD3. NOT  EQUAL 

00060 '0004 11 

JMP 

ENTR2  .'OLD  AND  NEW  SOLUTION  COINCIDE 

00061 '014506 

D5Z 

NOPPC  .'SKIP  IF  LAST  POSS.  PH.  CD.  WD. 

00062 '000402 

JMP 

.+2  .' FEEP  LOOKING 

00063 '000431 

JMP 

ENTR3  : DELETE  THIS  OLD  SOLUTION 

0006 4 '030502 

LDA 

Z.PTPPC  .'GET  ADR.  OF  POSS.  PH.  CD.  WD.  TB. 

00065' 151400 

INC 

2.2  .'SET  UP  NEXT  ADR. 

00066 '151400 

INC 

2.2 

00067 '050477 

STA 

2. PTPPC 

00070 '000757 

JMP 

L00P2  .'GET  NEXT  POSS.  PH.  CD. HD. 

00071 '102400  ENTR2: 

SUB 

0.0  ;2ER0  IN  AC0 

00072 '041000 

STA 

0.0.2  r ZERO  OUT  POSS.  PH.  CD. HD. 

00073 '020463 

LDA 

0.NPPCH  .'GET  NO.  OF  POSS.  PH.  CD.  HDS.. 

00074 '126520 

SUB2L 

1.1  ;ONE  IN  ftCl 

00075'122400 

SUb 

1.0  .'SUBTRACT  ONE  FROM  NO. 

00076 '040460 

STA 

0.NPPCH 

00077 '035001 

LDA 

3.1.2  .'GET  2 LIMITS  ADR.  FROM  TB. 

00100 '056470 

ST  ft 

S3. NR2MA  .'2  MAX  ADR.  IN  N1AN2 

00101 '030452 

LDA 

2.LPWAD  .'GET  ADR.  OF  LAST  POSS.  PH.  CD.  HD.  TB. 

00102 '151400 

INC 

2.2  .'ADR. OF  2 VALUE 

00103 '052472 

STA 

§2. NRZVft: SET  UP  ADR.  IN  N1AN2 

00104 '020461 

LDA 

0. CODEW  .'CD.  WD.  1 

00105 '030403 

LDA 

2.DATAD  .'DATA  TB.  ADR. 

00106 '041022 

STA 

0.22.2  .'STORE  CD.  HD.  IN  DATA  TB. 

001 07 '006463 

JSR 

S.NRl  .'DO  NEWTON  raphsqn  LOOP 

00110-000000  DATAD: 

0 

00111-022462 

LDA 

60.  .BMBF.'GET  BOMB  FLAG 

00112'101005 

MOV 

0.0. SNR  .'SKIP  IF  SOLUTION  BOMBED 

00113'000414 

JMP 

ENTR1  f STORE  NEW  2 VALUE 

00114'020436  ENTR3; 

LDA 

0.NOLPP  .'GET  NO.  OF  LAST  POSS.  PH.  CD.  HDS. 

00115'126520 

SUBZL 

1.1  ,'O.NE  IN  AC1 

00116'1 22400 

SUB 

1.0  .'SUB.  ONE  FROM  NO. 

00117-040433 

STA 

0.NOLPP 

00120-030433 

LDA 

2.LPWAD  .'GET  ADR.  LAST  POSS.  PH.  CD.  WD,  TB. 

00121'052441 

STA 

62. BMSTB.' STORE  ADR.  IN  BOMBING  SITE  TB. 

0012 2'010440 

IS2 

BMSTB  iINCREM,  ADR.  OF  BOMBING  SITES 

00123 '010436 

1 32 

NOBMS  ; INCREM.  NO,  OF  BOMBING  SITES 

00124'102400 

SUB 

0.0 

00125'041000 

STA 

0.0.2  ; ZERO  OUT  CODE  WORD 

00126'000411 

JMP 

ENDL1 

00127'034761  ENTR1: 

LDA 

S.DATAD.'ADR  OF  DATA  TABLE 

00130-021423 

LDA 

0.23.3  .'GET  NEW  2 VALUE 

00131'025424 

LDA 

1.24.3 

00132-035425 

LDA 

3,25.3 

00133-030420 

LDA 

2.LPWAD  .'ADR.  OF  LAST  POSS.  CD.  WD.  TB. 

00134'041001 

STA 

0.1. 2 .'STORE  2 VALUE  IN  TB. 

00135-045002 

STA 

1,2.2 

00136'055003 

STA 

3.3,2 

00137' 151400  ENDL1: 

INC 

2,2  : SETUP  NEXT  ADR. 

00140'151400 

INC 

2,2 

00141'151400 

INC 

00142'151400 

INC 

2.2 

00143-050410 

STA 

2, LPWAD 

00144'014417 

DS2 

CNTR1  .'END  OLD  SOLUTIONS  IF  ZERO 

00145'000402 

JMP 

.+2 

00146-000431 

JMP 

NEWSL  ,'DO  NEW  SOLUTIONS 

00147'000662 

JMP 

LOQP1  .'DO  NEXT  OLD  SOLUTION 

00150-000000  RETRN: 

0 
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0003  N2 


00151' 000000  NLPPA 

0 

00152 '000000  NOLPP 

0 

001 53 '000000  LPWAD 

0 

00154 '177777  NPCWA 

T5NPW 

00155 '177777  .PPCW 

TSPCW 

00156 '000000  NPPCW 

0 

00157 '000000  PFCHT 

0 

001 60 '000000  N0BMA 

0 

00161 '000000  NOBMS 

0 

00162 '000000  BMSTB 

0 

00163 '000000  CNTR1 

0 

0016 4-000004  four: 

4 

00165 '000000  CODEW 

0 

00166 '000000  FTPPC 

0 

00167 '000000  NOPPC 

0 

001 70 '177777  NRZMA 

ZMXAD 

00171 '177777  NRZNA 

ZMNAD 

001 72 '177777  , NR1 : 

NR1 

001 73 '177777  ,BMBF 

BOMFG 

001 74 '177777  .NR2: 

NR2 

001 75 '177777  NRZVA 

ZVATA 

001 76 '000000  CNTR2 

0 

001 77 '020757  NEWSL 

LDA 

0. NPPCW  .'GET  NO.  OF  POSS.  PH.  CD.  WDS,  LEFT 

00200 '101005 

MOV 

0.0. SNR  .'SKIP  IF  NON  ZERO 

00201 '000506 

JMP 

ENHSL  .'END  NEW  SOLUTION  SEARCH 

00202 '040774 

STA 

0.CN7R2 

00203 '020705 

LDA 

0.DATAD  .-DATA  TB.  ADR. 

00204 '040423 

STA 

0.  DTADl 

00205 '030752 

LDA 

2.PPCHT  .'ADR.  OF  POSS.  PH.  CD.  WD.  TB. 

00206 '021000  L00P3: 

LDA 

0.0.2  :GET  CODE  WORD 

00207 '040756 

STA 

0. CODEW 

00210 '101004 

MOV 

0.0. SZR  .'SKIP  IF  CODE  HORD  ZERO 

00211 '000405 

JMP 

ENTR7  .'CODE  WORD  O.K. 

00212 '151400 

INC 

2.2  .'SET  UP  NEXT  POSS. PH.  CD.  WD.  TB.  ADR. 

00213'151400 

INC 

2.2 

0021 4 '050743 

STA 

2.PPCWT 

00215 '000771 

JMP 

L00P3  .'GET  NEXT  CODE  WORD 

00216 '035001  ENTR7. 

LDA 

3.1.2  .'GET  ADR.  OF  Z LIMITS 

0021 7 '056751 

STA 

63. NRZMA; Z MAX.  ADR.  IN  NIAN2 

00220 '175400 

INC 

3.3  .'SET  UP  Z MIN.  ADR. 

00221 '175400 

INC 

3. 3 

00222 '175400 

INC 

Oi  1) 

00223 '056 746 

STA 

§3.NRZNA.'Z  MIN.  ADR.  IN  N1AN2 

00224 '030403 

LDA 

2. DTADl  .'DATA  TB.  ADR. 

00225 '04 1022 

STA 

0.22.2  :STORE  CD.  HD.  IN  DATA  TB. 

00226 '006746 

J5R 

6.NR2  .'DO  NEWTON  - RAPHSON  LOOPS 

00227 '000000  DTADl. 

0 

00230 '022743 

LDA 

60. . BMBF: GET  BOMB  FLAG 

00231 '101004 

MOV 

0.0. SZR  .'SKIP  IF  SOLUTION  O.K. 

00232 '000445 

JMP 

ENTR4  .'SET  UP  NEXT  CODE  HORD 

00233 '020726 

LDA 

0. NOBMS  .'GET  NO.  OF  BOMBING  SITES 

00234 '101005 

MOV 

0.0. SNR  .'SKIP  IF  BOMBING  SITES  AVAILABLE 

00235'0004 22 

JMP 

ENTR5  .'STORE  AT  END  OF  TB. 

00236'030?24 

LDA 

2. BMSTB  .'GET  ADR.  OF  BOMBING  SITE 

00237'035377 

LDA 

3. -1.2  .'GET  LAST  BOMBING  SITE  ADR. 

00240'020 725 

LDA 

0. CODEW  .'GET  CODE  WORD 

00241'041400 

STA 

0.0.3  .'STORE  IN  LAST  POSS.  PH.  CD.  HD.  TB. 

00242'030765 

LDA 

2.  DTADl  .'GET  ADR  OF  DATA  TABLF 

00243'021023 

LDA 

0.23.2  .'GET  NEW  Z VALUE 
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00244 '041401 

STA 

0.1.3 

.'STORE  2 VALUE  IN  TB. 

00245-021024 

LDA 

0.24.2 

00246' 041402 

STA 

0.2.3 

00247'021025 

LDA 

0.25.2 

00250 '0mm 

STA 

0.3.3 

00251 '014711 

D52 

BMSTB 

.'DECREM.  ADR.  OF  BOMBING  SITE  TB. 

00252 '020707 

LDA 

0.NOBMS 

.'GET  NO.  OF  BOMBING  SITES 

00253 '126520 

SUB2L 

1.1 

.'ONE  IN  AC1 

00254 '122400 

SUB 

1.0 

,'SUB.  ONE  FROM  NO. 

00255 '040704 

STA 

0.NOBMS 

00256 '000420 

JMP 

ENTR6 

.'FIX  NO.  OF  LAST  POSS.  PH.  CD.  WDS, 

00257 '034674  ENTR5: 

LDA 

3.LPWAD 

.'GET  ADR.  OF  LAST  POSS.  PH.  CD,  HD 

00260 '020705 

LDA 

0. CODEW 

.'GET  CODE  WORD 

00261 '041400 

STA 

0.0.3 

.'STORE  IN  TB. 

00262 '030745 

LDA 

2.DTAD1: 

GET  ADR  OF  DATA  TABLE 

00263 '021023 

LDA 

0.23.2 

.'GET  NEW  2 VALUE 

00264 '041401 

STA 

0.1.3 

.'STORE  Z VALUE  IN  TB. 

00265 '021024 

LDA 

0.24.2 

00266 '041402 

STA 

0.2.3 

00267 '021025 

LDA 

0.25.2 

00270 '041403 

STA 

0. 3.3 

00271 '175400 

INC 

3.3 

.'SET  UP  NEXT  ADR. 

00272 '175400 

INC 

3,3 

002 73 '175400 

INC 

3,3 

00274 '175400 

INC 

3.3 

00275 '054656 

STA 

3.LPWAD 

00276 '010654  ENTR6: 

IS2 

NC'LPP 

.' INCREM,  NO.  OF  LAST  POSS.  PH.  CD. 

00277 '01 4677  ENTR4: 

DS2 

CNTR2 

.'SKIP  IF  ALL  PATHS  CHECKED 

00300 '000402 

JMP 

. +2 

.'SET  UP  FOR  NEXT  CODE  WORD 

00301 '000406 

JMP 

ENWSL 

.'END  OF  FINDING  NEW  SOLUTIONS 

00302 '030655 

LDA 

2.PPCWT 

.'GET  ADR.  OF  POSS.  PH.  CD.  WD.  TB. 

00303 '151400 

INC 

2.2 

.'SET  UP  NEXT  ADR. 

00304 '151400 

INC 

2.2 

00305 '050652 

STA 

2.PPCHT 

00306 '000700 

JMP 

LOOP3 

.'GET  NEXT  CODE  WORD 

00307 '020643  ENWSL: 

LDA 

0. NOLPP 

.'GET  NO,  LAST  POSS.  PATH  CD.  WDS, 

003 10 '042641 

STA 

S0.NLPPA: STORE  NO.  IN  DATA  BASE 

00311 '020650 

LDA 

0. N0BM5 

.'GET  NO.  OF  BOMBING  SITES 

00312 '042646 

STA 

(§0. NQBMA; STORE  NO.  IN  DATA  BASE 

00313 '034635 

LDA 

3.RETRN 

.'GET  RETURN  ADR. 

00314 '001405 

JMP 

5.3 

.'RETURN 

.END 
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N3  SUBROUTINE 

1.  The  N3  subroutine  transfers  the  final  ray  path  ocean  propagation 
parameters  to  the  proper  target-sonobuoy  basic  solution  table. 

2 . NRMD 

3.  JSR@  . N3 
mlNBS 
mlBST 


.N3  N3 

4 . NONE 

5.  TSNIB  and  TSIBS 

6.  mlNBS  and  mlBST 

7 . See  Figure  C9  • 

8.  See  Listing  C9  • 

9.  The  contents  of  TSNIB  and  TSIBS  are  transferred  into  mlNBS 
and  mlBST  respectively. 
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.nrel 

.TITL 

N3 

.'03/13/74 

000010 

.RDX 

3 

.ENT 

N3 

.EXT  N 

TS.NIB 

.ExTN 

TSIBS 

00000 '054427  N3: 

STA 

3.RETRN 

.'SAVE  RETURN  ADR. 

00001 '0 31400 

LDA 

2.0.3 

.'GET  ADR.  OF  NO.  B.  S 

00002 '022426 

LDA 

A0.NIBSA  '.GET  NO.  OF  I 

00003 '040*30 

STA 

0.  CNTR1 

00004 '041000 

STA 

0.0.2 

.'UPDATE  NO.  B.  S. 

00005' 101005 

MOV 

0.0.  SNR 

iSKIP  IF  NO.  > ZERO 

00006 '000415 

JMF 

ENDRR 

.'END  UF 

00007'03 1401 

LDA 

2.1.3 

‘.GET  f)DR,  OF  B.  S.  T. 

00010 '034421 

LDA 

3. . IBST 

.'GET  ADR.  OF  I.  B.  S, 

00011 '020421  L00P1; 

LDA 

0.BSINC 

.'DATA  BLOCK  INCREMENT 

0001 2' 040422 

STA 

0.CNTR2 

00013' 021400  LOOPS; 

LDA 

0.0.3 

.'TRANSFER  DATA  FROM 

00014 '041000 

STA 

0.0.2 

.'I.  B.  S.  T.  TO  B.  S. 

00015' 175400 

INC 

3.3 

.'INCR.  ADR,  'S 

00016' 15 1400 

INC 

2.2 

00017' 014415 

DSZ 

CNTR2 

00020' 000773 

JMF 

L00F2 

00021-014412 

DSZ 

CNTR1 

00022-000767 

JMF 

LOOF1 

00023 '102400  ENDRR: 

SUB 

0.0 

.'ZERO  IN  AC0 

00024 '042404 

STA 

S0.NIBSA.' RESET  NO.  OF  I.B .5. 

00025 '034402 

LDA 

3.RETRN 

fGET  RETURN  ADR. 

00026 '001402 

JMF 

2.3 

: RETURN 

00027 '000000  RETRN; 

0 

00030 '177777  NIBS A; 

TS! NIB 

00031 '177777  . IB3T; 

TSIBS 

00032 '000021  B5INC: 

■?1 

00033 '000000  CNTR1; 

0 

00034 '000000  CNTR2: 

0 

.END 
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NR1A2  (NR1  and  NR2 ) SUBROUTINE 


1 • The  NR1A2  subroutine  has  two  entry  points  which  are  used  by  the 
N2  subroutine.  NR1  is  used  to  run  a Newton-Raphson  calculation  to 
update  a solution  from  the  mnLPW  table.  NR2  is  used  to  run  a 
Newton-Raphson  calculation  on  a possible  ray  path  from  the  TSPCW  table. 

2.  N2 

3.  JSR@  . NR1 
BGDAT 


I 

I 


NR1 


NR1 

JSR(?  . NR2 
BGDAT 


. NR2  : NR2 

4.  PPMP,  NRLA,  NRLB,  NRMB,  CPGN,  DSPP,  and  SORT. 

5.  ZVAL1 , BGDAT  TABLE,  BBMXF , BMBFG , FUDGE,  DVBBF  , ZVATA,  ZMXAD,  and 
ZMNAD . 

6.  BOMFG , ZVAL1 , ZMAX1,  and  FDV1. 
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7.  See  Figure  CIO. 

8.  See  Listing  CIO. 

9.  a)  NR1  will  run  a maximum  of  8 Newton-Raphson  loops. 

b)  NR2  will  run  a maximum  of  6*1  Newton-Raphson  loops. 

c)  The  maximum  number  of  Newton-Raphson  loops  will  not  be  run 
if  the  calculated  horizontal  range  after  a loop  is  within  + 
one  eighth  of  a meter  from  the  actual  horizontal  range. 

d)  NR1  is  run  with  solutions  that  existed  on  the  preceding 
pass  and  usually  requires  one  or  two  loops  to  satisfy  the 
+1/8  meter  criteria. 

e)  NR2  is  run  with  ray  paths  that  are  new  and  do  not  have  a z value 

which  may  be  close  to  the  correct  value  if  it  exists.  NR2 

starts  with  a z value  equal  to  the  z maximum  limit.  If  the 
solution  fails  then  the  path  is  run  again  starting  with  a z 
value  equal  to  the  z minimum  limit  + a delta  value.  The  exact 
value  of  the  z minimum  limit  cannot  be  used  because  it  results 
in  infinite  ray  path  gains. 

f)  If  a solutions  becomes  invalid  or  does  not  exist,  then 
the  BOMFG  is  set  to  a one  which  signals  the  N2  subroutine 
to  delete  the  solution. 

g)  The  DVCR  subroutine  which  is  part  of  NR1A2  alters  the  value  of 
TDV1  so  that  it  never  approach  a zero  value.  A zero  value  for 
TDV1  results  in  an  infinite  gain  for  the  ray  path.  This  is  an 
error  inherent  in  classical  ray  trace  programs  and  is  referred 
to  as  a false  caustic.  The  TDV1  value  is  altered  by  adding  a 
portion  of  the  TDV1  value  calculated  at  the  z maximum  limit 
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value  of  the  propagation  mode.  TDV1  values  for  direct  paths  (NUMCY  = 
-1)  and  all  0-4  mode  ray  paths  are  not  altered  because  they  never  equal 
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0001  NR1A2 

.nrel 
. TITL 

000010  ,RDX 

.ENT 
.ENT 
.ENT 
.ENT 
.ENT 
.ENT 
.ENT 
.ENT 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 
.EXTN 


00000' 054463  NR  1;  ST  Pi 
00001 '030463  LDA 
00002 '034463  LDA 
00003 '021400  LDA 
00004' 025H01  LDA 
00005 '035 402  LDA 
00006'041023  5TA 
00007 '045024  ST  Pi 
00010' 055025  STA 
00011 '034532  LDA 
00012' 021400  LDA 
00013 '041036  STA 
00014' 021401  LDA 
00015 '041037  STA 
00016' 021402  LDA 
00017' 041040  STA 
00020 '004450  JSR 
00021 '000434  JMP 
00022 '054441  NR2:  STA 
00023 '030441  LDA 
00024 '03451 7 LDA 
00025 '02 1400  LDA 
00026 '025401  LDA 
00027 '035402  LDA 
00030 '041023  STA 
00031 '045024  STA 
00032 '055025  STA 
00033 '041036  STA 
00034 '045037  STA 
00035 '055040  STA 
00036 '004434  JSR 
00037 '020430  LDA 


NSWC/WOL/TR  75-115 
NR1A2  .'010/17/74 

g 

NR1 

NR2 

ZV'ATA 

ZMXAD 

ZMNAD 

BOMFG 

FDV1 

SKEDT 

BGDAT 

BBMXE 

BMBFG 

DV'BBF 

CPGN 

DSFRP 

SORT 

NRLA 

NRLB 

NRMB 

TSNIB 

TS  IBS 

FFAD 

TDV'l 

TTM1 

TRG1 

3.RETRN  .'SAVE  RETURN  ADR. 

2 BGDT  .'GET  DATA  TB.  ADR. 

3. ZV'ATA  .'GET  Z VALUE  ADR. 

0.0.3  .'GET  Z VALUE 

1.1.3 

o.2. 3 

0.23.2  .'STORE  Z VALUE  IN  TB. 

1.24.2 

3.25.2 

3. ZMXAD  .'GET  Z MAX,  ADR. 

0.0.3  .'GET  Z MAX. 

0.36.2  .'STORE  IN  TB.  AS  LIMIT 

0. 1. 3 

0. 37.2 

0,2.3 

0,40.2 

NRlA  ,'DO  ONE  NEWTON-RAPHSON 
ENDRR  .'END 

3.RETRN  .'SAVE  RETURN  ADR. 

2.  .BGDT  .'GET  DATA  TB.  ADR. 

3.  ZMXAD  .'GET  Z MAX.  ADR. 

0.0.3  .'GET  Z MAX, 

1.1.3 

3.2.3 

0.23.2  .'STORE  AS  Z VAL, 

1.24.2 

3.25.2 

0.36.2  .'STORE  IN  TB.  AS  LIMIT 

1.37.2 

3.40.2 

NR2A  ,'DO  N NE.WT0N-RAPHS0N7S 
0.  BOMFG  ,'GET  BOMB  FLAG 
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000*0' 101005 

MOV 

0.0.  SNR 

.'SKIP  IF  BOMBED 

00041 '000414 

JMF 

ENDRR 

.'END 

000*2 '03W22 

LDA 

2.  .BGDT 

.'GET  DATA  TB,  ADR, 

000*3 '03**23 

IDA 

3.  ZMNAD 

GET  Z MIN.  ADR. 

000** ‘020*13 

LDA 

0,  INCRl 

000*5 ‘113000 

ADD 

0.2 

000*6 ‘050*05 

STA 

2.DATA1 

000*7 '05**02 

ST  A 

3.ZAD1 

00050' 00651 7 

JSR 

g.FADD 

00051 ‘000000  ZADl; 

0 

00052' 000060' 

F6AD1 

00053‘000000  DATAl : 

0 

0005* ‘00**16 

JSR 

NR2A 

:DO  N NEHTON-RRPHSON'S 

00055' 03**06  ENDRR: 

LDA 

3.  RETRN 

.'GET  RETURN  ADR. 

00056 ‘001*01 

JMP 

1.3 

: RETURN 

00051 ‘000023  INCRl; 

23 

00060 '037762  FGRDl: 

037762 

00061 '077777 

077777 

00062' 177777 

177777 

00063-000000  RETRN; 

0 

0006* '177777  . BGDT ; 

BGDAT 

00065 '000000  ZVATA; 

0 

00066 ‘000000  ZH NAD; 

0 

00067 '000000  BOM EG; 

0 

00070 '020*63  NR1A; 

LDA 

0.  NC'NRl 

.'GET  NO.  OF  N-R  LOOPS 

00071 ‘000*02 

JMP 

ENTRI 

00072' 020*62  NR2A: 

LDA 

0.NONR2 

.'GET  NO.  OF  N-R  LOOPS 

00073 '054462  ENTRI: 

STA 

3.  RETUN 

.'SAVE  RETURN  ADR. 

0007*' 030770 

LDA 

2. .BGDT 

.'GET  DATA  TB.  ADR. 

00075' 0*1035 

STA 

0. 35.2 

.'STORE  NO,  IN  TB. 

00076 ' 006*60 

JSR 

g.NRLA 

.'DO  NEHTOM-RAPHSON 

00077' 00006*' 

B6DAT 

00100 '03076*  LOOP1; 

LDA 

2. .BGDT 

.'GET  DATA  TB.  ADR, 

00101 '021035 

LDA 

0.35.2 

.'GET  NO.  OF  LOOPS 

00102 '126520 

5UBZL 

1.1 

.'ONE  IN  ACl 

001 03' 122*00 

SUB 

1.0 

: NO-ONE 

0010* '0*1035 

STA 

0. 35.2 

: STORE  NO.  IN  TB. 

00105' 10100* 

MOV 

0. 0.SZR 

.'SKI 77 IF  NO.  ZERO 

00106 '000**1 

JMF 

ENTR2 

:D 0 NEXT  N-R 

00107 '022*51 

LDA 

60.  , BEMX  ;GET  BOMB  FLAG 

00110' 026*51 

LDA 

61. , BBMN 

00111 '032*51 

LDA 

62. . BBDV 

00112' 176*00 

SUB 

3.3 

:ZERO  IN  ACS 

00113' 107000 

ADD 

0.1 

0011*' 13300* 

ADD 

1.2.SZR 

.'SKIP  IF  NO  BOMBING 

00115' 175*00 

INC 

3.3 

.'ONE  IN  ACS 

00116' 05*751 

STA 

3.  B0MF6 

.'STORE  IN  BOMB  FLAG 

00117' 17500* 

MOV 

3, 3.  SZR 

.'SKIP  IF  NO  BOMBING 

00120' 000*2* 

JMP 

ENTR3 

.'END 

00121' 102520 

SUBZL 

0.0 

00122 '0307*2 

LDA 

2.  .BGDT 

00123' 0*103* 

STA 

0.34.2 

0012* '006**2 

JSR 

6.NRMB 

00125' 000077' 

BGDAT 

00126' 102*00 

SUB 

0,0 

00127 '030735 

LDA 

2.  .BGDT 

00130' 0*103* 

STA 

0,34.2 

00131 '004437 

JSR 

DVCR 

00132 '006431 

JSR 

6.CPGN 

.'COMPUTE  GAIN.  ETC. 
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001 33 '000125' 

BGDAT 

00134 '000403 

JMP 

,t3 

.'SKIP  OVER  DISPLAV 

00135 '00642? 

JSR 

e.DSPP 

.'DISPLAy  RESULTS 

001 36'000133' 

BGDAT 

00137' 006426 

JSR 

§ , SORT 

.'SORT  By  GAINS 

001 40 '0001 36' 

BGDAT 

00141 '177777 

TSN1B 

00142'177777 

IS  IBS 

00143 '000000  ZMX'AD 

0 

00144'101000  E.NTR3 

MOV 

0,0  ' 

r JSR  3 

.'INTERRUPT 

00145 '034410 

LDA 

3.  RETUN 

;GET  RETURN  ADR. 

00146'0014 00 

JMP 

0, 3 

.'RETURN 

00147'101000  E.NTR2 

.MOV 

0.0 

.'  JSR  3 

,'  INTERRUPT 

00150'006407 

JSR 

R . NRLB 

f DO  NEWTON- RAPHSON 

0015 1-000140' 

BGDAT 

00152-000726 

JMP 

LOOP1 

.'LOOP  AGAIN 

00153'00001 0 NO.NRl 

10 

00154'000100  N0NR2 

100 

00155'000000  RETUN 

0 

00156-177777  .NRLA 

NRLA 

0015?'1?7777  , NRLB 

NRLB 

00160'177777  , BBMX 

BBMXF 

00161'177777  . BBMN 

BMBFG 

00162'17?77?  . BBDV 

DVBBF 

00163'1?7777  ,CPGN 

CPGN 

00164'1?77?7  .D5PP 

DSPRP 

00165'177??7  .SORT 

SORT 

00166'177777  ,NRMB 

NRMB 

00167'1?7?77  .FOOD 

FFAD 

001 70-054562  DVCRi 

STA 

3.RETX 

00171-030673 

LDA 

2.  ,BGDT 

00172-034561 

LDA 

3, , TDV1 

00173-021400 

LDA 

0.  0.  3 

00174'040562 

STA 

0.FDV1 

00175-021401 

LDA 

0.1.3 

00176'040561 

STA 

0.FDV2 

0017?'021402 

LDA 

0.2.3 

00200-040560 

STA 

0. FDV3 

00201'000547  S.K.FDT;  JMP 

ARNDl 

00?02'021032 

LDA 

0.32.2 

.'NO.  OF  HF.  CyC, 

00203-101112 

MOVLf 

0. 0.  SZC 

.'SKIP  IF  NOT  - 1 

00204'000544 

JMP 

ARNDl 

.'SKIP  FAKE  DERIV. 

00205-021026 

LDA 

0.26.2 

.'TOP  Ly.  NO. 

00206-101004 

MOV 

0. 0.  SZR 

0020? '000405 

JMP 

ARND2 

,'DO  FAKE  DERIV. 

00210 '02102? 

LDA 

0.27.2 

:BOT.  LY.  NO. 

00211'101220 

MOVZR 

0.0 

00212'101224 

MOVZR 

0.0.  SZR 

.'SKIP  IF  NOT  0-4 

00213'000535 

JMP 

ARNDl 

.'SKIP  FAKE  DERIV. 

00214'021023  ARND2;  LDA 

0.23.2 

00215-040544 

STA 

0. ZVL1 

00216-021024 

LDA 

0.24.2 

00217-040543 

STA 

0.ZVL2 

00220'021025 

LDA 

0.25.2 

00221'040542 

STA 

0. ZVL'3 

00222'034721 

LDA 

3.  ZMXAD 

.'Z  MAX,  ADR. 

00223 '021400 

LDA 

0.  0.  3 

00224-041023 

STA 

0.23.2 

00225-021401 

LDA 

0.1.3 
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00226 '041024 

STA 

0*24.2 

0022  7 '02 1402 

LDA 

0.2.3 

00230 '04 1025 

STA 

0.25.2 

00231 ' 034522 

LDA 

3. . TDV'l 

00232 '021 400 

LDA 

0.0.3 

00233 '040531 

STA 

0.  DV1 

00234 '021401 

l.DA 

0.1.3 

00235 '040530 

STA 

0.DV2 

00236 '021402 

LDA 

0.2.3 

00237 '040527 

STA 

0.  DV3 

00240 '034514 

LDA 

3. , TTH1 

00241 '021400 

LDA 

0.0.3 

00242 '040525 

STA 

0.  T.M1 

00243 '021401 

LDA 

0.1.3 

00244 '040524 

STA 

0.TM2 

00245'021402 

LDA 

0.2.3 

00246'040523 

STA 

0.TM3 

0024  7 '034506 

LDA 

3. . TRG1 

00250-021400 

LDA 

0. 0. 5 

00251 '040521 

STA 

0.R61 

00252'021401 

LDA 

0.1.3 

00253'040520 

STA 

0.  R62 

00254-021402 

LDA 

0.2.3 

00255-040517 

STA 

0.R63 

00256'0067 10 

JSR§ 

.NRMB 

00257' 000151 '.BGDA; 

BGDAT 

00260'0344?3 

LDA 

3. . TDV'l 

00261'021400 

LDA 

0,0.3 

00262'040474 

STA 

0. FDV1 

00263'021401 

LDA 

0. 1. 3 

00264'040473 

STA 

0. FDV2 

00265'021402 

LDA 

0.2.3 

00266'040472 

STA 

0.FDV3 

00267-030770 

LDA 

2. .BGDA  : RESTORE  ACT,  2 

00270-020471 

LDA 

0.ZVL1 

00271-041023 

STA 

0.23.2 

00272-020470 

LDA 

0. ZVL2 

00273'041024 

STA 

0.24.2 

00274'020467 

LDA 

0. ZVL3 

00275-041025 

STA 

0.25.2 

00276'034455 

LDA 

3.  .TDV'l  : RESTORE  ACT.  DV, 

00277'020465 

LDA 

0.  DV1 

00300 '041400 

STA 

0. 0. 3 

00301-020464 

LDA 

0.  DV2 

00302'041401 

STA 

0. 1,3 

00303'020463 

LDA 

0.  DV3 

00304'041402 

STA 

0.2.3 

00305'034447 

LDA 

3. . TTM1 

00306'020461 

LDA 

0.  TM1 

00307'041400 

STA 

0.  0.  3 

00310'020460 

LDA 

0.  TM2 

00311-041401 

STA 

0.1.3 

00312'020457 

LDA 

0.  TM3 

00313'041402 

STA 

0.2.3 

00314*034441 

LDA 

3. . TRGl 

00315'020455 

LDA 

0.RG1 

00316'041400 

STA 

0.0.3 

00317'020454 

LDA 

0.RG2 

00320'041401 

STA 

0.1,3 
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00321 '020453 

LDA 

0.RG3 

00322 '041402 

STA 

0.2/3 

00323 '020434 

LDA 

0. FDV2 

00324 '025031 

LDA 

1.31.2 

00325 '176620 

SUB2R 

3.3 

00326 '11 7400 

AND 

0.3 

00327' 137000 

ADD 

1.3  ^ 

00330'175133 

MOVZLf 

J.o.  SNC 

00331'000407 

JMP 

ARND3 

00332'024426 

LDA 

l.FDVS 

00333'124405 

NEC 

1.1. SNR 

00334'100401 

N EG 

0.0.  SKP 

00335'100000 

COM 

0.0 

00336-040421 

STA 

0.FDV2 

00337-044421 

STA 

l.FDVS 

00340-020416  ARND3; 

LDA 

0.FDV1 

00341 '024434 

LDA 

1. FUDGE 

00342'122400 

SUB 

1,0 

00343'040413 

STA 

0,  FDV'l 

00344 '006623 

JSRe 

.FADD 

00345 ' 000356 ' 

FDV1 

00346'000364' 

DV1 

0034 7 '000356' 

FDV1 

00350-034402  fiRNDlf 

LDA 

3. RETX 

00351 '001400 

JMP 

0.3 

0035 2'000000  RETX; 

0 

00353'177777  .TDV1: 

TDV1 

00354'177777  . TTM1 : 

TTM1 

00355'177777  .TRGl; 

TRGl 

00356-000000  FDV'l; 

0 

00357-000000  FDV2: 

0 

00360-000000  FDV3: 

0 

00361'000000  2VL1 ; 

0 

00362'000000  ZVL2: 

0 

00363-000000  2VL3; 

0 

00364-000000  DV1; 

0 

00365 '000000  DV2; 

0 

00366-000000  Dv'3; 

0 

00367 '000000  T Ml; 

0 

00370-000000  TM2r 

0 

00371-000000  TH3; 

0 

00372-000000  RG1; 

0 

00373 '000000  RG2: 

0 

00374-000000  RG3; 

0 

00375-000000  FUDGE; 

0 

.END 
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NRLAB  (NRLA  AND  NRLB)  SUBROUTINE 

1.  The  NRLAB  subroutine  has  two  entry  points  which  are  used  by  the 
NR1A2  subroutine.  NRLA  is  entered  on  the  first  Newton-f  iphson 
calculation  loop  for  each  ray  path.  NRLB  is  entered  for  all  the  rest 
of  the  loops.  This  subroutine  checks  to  see  if  preceding  solutions 
are  still  valid  and  if  new  ray  paths  now  exist.  It  also 
calculates  the  next  z value  to  use  for  the  Newton-Raphson 
calculation  loop. 

2.  NR1A2 

3.  JSR@  .NRLA 
BGDAT 


.NRLA:  NRLA 

JSR@  .NRLB 
BGDAT 


.NRLB: 


NRLB 
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PPMP  and  NRMA 

5.  TDV1,  TRG1 , ZVAL1,  DLRG1 , ZMAX1,  and  BMBFG 

6.  ZVAL1,  BBMXF,  and  DVBBF 

7 . See  Figure  Cll  . 

8.  See  Listing  Cll. 

9.  a)  The  Newton-Raphson  calculation  is  run  until  one  of  the 

following  conditions  is  met: 

1.  The  number  of  loops  equals  NONRL. 

2.  The  calculated  value  of  horizontal  range,  TRG1,  is  within 
+ DLRG1  of  the  actual  horizontal  range  A1HR. 

3.  One  of  the  bomb  flags  BBMXF,  DVBBF,  or  BMBFG  equals  one. 
b)  The  Newton-Raphson  calculation  computes  a new  value  of  z which 

equals 


ZNEW 


/ A1HR  - TRG1 N 
ZOLD  K TDV1  ' 


The  new  value  is  then  used  in  another  Newton-Raphson 
calculation  which  moves  the  value  of  TRG1  closer  to  A1HR. 
TDV1  is  always  used  in  the  calculation  instead  of  FDV1. 
c)  If  the  value  of  z exceeds  the  z maximum  limit  the  solution 
is  invalid  and  BBMXF  is  set  to  one.  If  the  sign  of  TDV1 
changes  then  the  solution  is  also  invalid  and  DVBBF  is  set 
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.NREL 

.T1TL 

NRLAB  10 5/06/74 

000010 

.RDX 

g 

.ENT 

NRLA 

.ENT 

NRLB 

.ENT 

BBMXE 

.ENT 

DVBBF 

.EX  TN 

NRMA 

.EXTN 

NRMB 

.EXTN 

BMBFG 

.EXTN 

TDV1 

.EXTN 

TRG1 

.EXTN 

ffsb 

.EXTN 

rr  ad 

.EXTN 

FFBV 

00000' 102400  NRLA; 

SUB 

0.0 

.'ZERO  IN  AC0 

00001 '000W0£ 

JMP 

ENTR1 

.'JUMP  AROUND 

00002 '102520  NRLB; 

SUBZL 

0.0 

.'ONE  IN  AC0 

00003 ' 054522  ENTR1; 

ST  ft 

3.RETRN 

.'SAVE  RETURN  ADR. 

00004 ' 040522 

STft 

0.NRLPR 

.'N-RPOINTER 

00005 '102400 

SUB 

0.0 

.'ZERO  IN  AC0 

00006 '040521 

STA 

0. DVBBf 

.'DERIV.  BOMB  FLAG 

00007 '040550 

STA 

0. BBMXF 

00010 '042526 

STA 

&0. .BMFGi RESET  Z MIN  BOMB  FLAG 

00011 '031400 

LDA 

2.0.3 

.'GET  DATA  TB.ftDR. 

00012 '050516 

STft 

2. DATAD 

00013 '050421 

STft 

2.  DTADl 

00014 '050423 

STft 

2.  DTAD2 

00015 '020514 

LDA 

0. I NCI 

.'GET  Z VAL,  ADR,  INCREM. 

00016 '143000 

ADD 

2.0 

iZ  VAL,  ADR. 

0001 7 '040475 

STft 

0.  ZftDl 

00020 '0404 75 

STft 

0.2AD2 

00021 '040542 

STft 

0.  ZVAD3 

00022 '020510 

LDA 

0. INC2 

:GET  ACT.  HOR.  RNG.  ADR.  INCR. 

00023' 143000 

ADD 

2.0 

.'ACT.  HOR.  RNG.  ADR. 

00024 '040435 

STA 

0. HRADl 

00025 '020506 

LDA 

0.  INC3 

.'GET  Z MAX.  ADR.  INCREM. 

00026 '143000 

ADD 

2.0 

;Z  MAX.  ADR. 

0002 7 '040533 

STft 

0.  ZMXftl 

00030 '004530 

JSR 

TSMX 

.'MAX.  LIMIT  TEST 

00031 '014475 

DS2 

NRLPR 

,'N-R.  LOOPS  POINTER 

00032 '000404 

JMP 

ENTR2 

.'ONE  N-R 

00033 '006501 

JSR 

S.NRMB 

.'MULTIPLE  N-R 

00034 '000000  DTAD1 ; 

0 

00035 '000403 

JMP 

ENTR3 

'.JUMP  AROUND 

00036 '006477  ENTR2: 

JSR 

6, NRMA 

.'FIRST  N-R 

00037 '000000  DTAD2; 

0 

00040 '022476  ENTR3: 

LDA 

60.  .BMF6  ,'MIN.Z  LIMIT  BOMB  FLAG 

00041 '101004 

MOV 

0.0. 52R 

.'SKIP  IF  Z VAL.  O.K. 

00042'000456 

JMP 

ENRLP 

.'END  BY  BOMBING 

00043'030474 

LDA 

2. . TDV1 

(GET  TOT.  DERIV.  ADR. 

00044'021001 

LDA 

0.1.2 

.'GET  TOT.  DERIV  SIGN 

00045'030463 

LDA 

2. DATAD 

.'GET  DATA  TB.  ADR. 

00046-025031 

LDA 

1.31.2 

.' GET  DERIV  SIGN  BIT 

00047'176620 

SUBZR 

3. 3 

.'EXTRACT  SIGN  BIT  ONLV 
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00050'  117400 

AND 

0.3 

00051 "137000 

ADD 

1.3 

00052 '152400 

SUB 

2.2 

: ZERO  IN  PC2 

00053' 175132 

MOVZL# 

3. 3.  SZC 

{SKIP  IF  DERIV.  Q.K. 

00054' 152520 

SUBZL 

2.2 

:ONE  IN  PC2 

00055 '050452 

STA 

2. DVBBF 

: DERIV.  BOMB  FLAG 

00056 '151004 

MOV 

2.2. SIR 

.'SKIP  IF  DERIV.  O.K. 

00057 '000441 

JMP 

ENRLP 

.'END  BY  BOMBING 

00060 '006460 

JSR 

6.FSUB 

; (ACT-CAL, iHOR,  RNG, 

00061 '000000  HRADl ; 

0 

00062 '177777 

TRGl 

00063'000141 ' 

TEMPI 

00064 '030455 

LDA 

2.  TEMPI 

00065 '024455 

LDA 

1.TEMA2 

00066 '020455 

LDA 

0.  TEMA3 

00067 '1251 13 

MOVLf 

1.1.  SNC 

00070 '000404 

JMP 

ENTR5 

00071 '100404 

NEG 

0.0.  SZ  R 

00072 '124001 

COM 

1.1. SKP 

00073 '124400 

NEG 

1.1 

00074 '050450  ENT.R5: 

STA 

2.  TEMCl 

00075'044450 

STA 

1.TEMC2 

00076'040450 

STA 

0. TEMC3 

00077'006441 

JSR 

i.FSUB 

.'ABOVE-LIMIT 

00100-000144' 

TEMC1 

00101 '000147' 

DLR61 

00102' 000144' 

TEMC1 

00103'020442 

LDA 

0. TEMC2 

.'GET  RESULT 

00104'101102 

MOVL 

0.0.  SZC 

.'SKIP  IF  OUTSIDE  LIMIT 

00105'000413 

JMP 

ENRLP 

.'END  EARLY 

00106'006444 

JSR 

B.FBIV 

; l tACT. -CAL. )HOR.  RNG. i/DERIV, 

001 07 '000141' 

TEMPI 

00110-177777 

TDV1 

00111 '000153' 

TEMB1 

00112'006444 

JSR 

e.FPDD 

.'ABOVE  t Z VALUE 

00113-000153' 

TEMB1 

00114'000000  ZADl  ; 

0 

00115'000000  ZAD2; 

0 

00116'004442 

JSR 

TSMX 

,'MAX.  LIMIT  TEST 

00117-000404 

JMP 

ENTR4 

.'END  NATURALLY 

00120'030410  ENRLP: 

LDA 

2. DPT PD 

(GET  DATA  TB.  ADR. 

00121'102520 

SUBZL 

0.0 

{ONE  IN  AC0 

00122'041035 

STA 

0.35.2 

.'STORE  ONE  FOR  NO.  N.R. 

0012 3'034402  ENTR4; 

LDA 

3. RETRN 

.'GET  RETURN  ADR. 

00124'001401 

JMP 

1.3 

.'RETURN 

00125-000000  RETRN; 

0 

00126'000000  NRLPR; 

0 

00127 '000000  DVBBF: 

0 

001 30'000000  DA TAD; 

0 

00131'000023  I NCI: 

23 

00132'000001  INC2; 

1 

00133'000036  INC3; 

36 

00134'177777  .NRMB; 

NRMB 

00135'177777  ,NRMA; 

NRMA 

00136'177777  ,BMFG; 

BMEFG 

00137'000110'.TDV1: 

TDV1 

00140' 177777  ,FSUB: 

EF  SB 

mm 'mm  tfmai ; 

0 

00142'000000  TEMA2; 

0 
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0003  NRLAB 

00143  ‘000000  TEMA3; 

0 

00144 '000000  TEMC1 : 

0 

00145 '000000  TEMC2; 

0 

00146 '000000  TEMC3; 

0 

0014? '037775  DLRGl; 

037775 

00150 '077777 

077777 

00151' 177777 

177777 

* 

00152'177777  .ED IV: 

FFDV 

00153 '000000  TEMB1: 

0 

00154 '000000  TEMB2; 

0 

00155 '000000 

0 

00156' 177777  .FADD: 

FFAD 

. 

00157 '000000  BBMXF; 

0 

00160 '054427  TSMX; 

ST  A 

3. RETUN  .'SAVE  RETURN  ADR. 

00161 '006757 

JSR 

§.FSUB  .'Z  MAX.  - Z VAL. 

00162' 000000  ZMXAl ; 

0 

00163'000000  ZVAD3: 

0 

f 

00164' 000153' 

TEMB1 

00165' 126400 

SUB 

1.1  .'ZERO  IN  AC1 

00166 '020766 

LDA 

0.TEMB2  .'GET  SIGN  QF  ABOVE 

00167' 101 102 

MOVL 

0.0.SZC  (SKIP  IF  Z VAL. O.K. 

00170' 125400 

INC 

1.1  .'ONE 

00171' 044766 

ST  A 

1. BBMXF  .'MX.  VAL.  BOMB  FLAG 

00172' 125005 

MOV 

1.1.  SNR  .'SKIP  IF  BOMBED 

00173' 000412 

JMP 

E.NDRR  .'END 

00174 '03076? 

LDA 

2.ZVADS  .'GET  Z VAL.  ADR 

001 75 '034 765 

LDA 

3.ZMXA1  .'GET  Z MAX.  ADR 

001 76 '021400 

LDA 

0.0.3  .'MAKE  Z VAL.  Z MAX. 

00177'041000 

STA 

0.0.2 

00200'021401 

LDA 

0. 1.3 

00201 '041001 

STA 

0.1.2 

00202 '021402 

LDA 

0.2.3 

00203 '041002 

STA 

0,2.2 

00204 '000714 

JMP 

ENRLP 

00205 '034402  ENDRRi 

LDA 

3. RETUN  .'GET  RETURN  ADR. 

00206 '001400 

JMP 

0.3  .'RETURN 

00207-000000  RETUN; 

0 

[ 

1: 

i 

.END 
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NRMA  (NRMA  AND  NRMB ) SUBROUTINE 

1.  The  NRMA  subroutine  has  two  entry  points  NRMA  and  NRMB.  NRMA 
is  used  to  extract  the  parameters  from  a ray  path  code  word  during 
its  first  pass  through  a Newton-Raphson  calculation.  NRMB  is  used 
for  further  Newton-Raphson  calculations  on  the  same  ray  path  that 
first  used  NRMA. 

2.  NRLAB  and  NR1A2 
JSR@  .NRMA 
BGDAT 


NRMA 

JSR@  .NRMB 
BGDAT 


NRMB 

[ 4.  FIN1 , FIN2,  and  FQ1 . 

5.  CODEW 

6.  TPNUM,  BTNUM,  DIRMD,  NUMCY,  and  SGNDV 

C-101 


, NRMA : 


.NRMB: 


NSWC/WO 

7.  See  Figure  C12. 

8.  See  Listing  C12  „ 

9.  NRMB  is  used  to  save  some  comp 
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NRMA  entry 


ACS  =>  RETRN 


CODEN  ( BITS  0 TO  2)  =>  TPNUM 
CODE H ( BITS  3 TO  5)  =>  BTNUM 
CODEH  (BIT  6)  = > DIftMD 
CGDEH  (BITS  7 TO  14 1 =>  NUMCY 
CODEH  (BIT  15)  =>  SGNDV 


Of  NUMCY 


> NUMCY 


name  entry 

ACS 

=>  RETRN 

JSR  f INI 
JSR  F1N2 
JSR  FQ2 

t , 

RETRJ 

N =>  ACS 

L_ 

JMP 

i7s| 

0001  NRMA 

.NREL 
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. T1TL 

NRMA  ; 03/08/74 

000010 

.RDX 

g 

.ENT 

NRMA 

.ENT 

nRmb 

.EX  TN 

EIN1 

.EXTN 

F1N2 

.EXTN 

FQ2 

00000 '054462  NRMA: 

STA 

3. RETRN  ; SAVE  RETURN  ADR. 

00001 '031400 

LDA 

2.0.3  .‘GET  DATA  TB.  ADR. 

00002-050451 

STA 

2.DTAD1 

00003-050452 

STA 

2.  DTAD2 

00004-050453 

STA 

2.DTAD3 

00005 ‘021022 

LDA 

0.22.2  ;GET  CODE  WORD 

00006-126400 

SUB 

1.1  ;ZERO  IN  ACl 

00007'10U20 

MDVZL 

0.0  .‘EXTRACT  TOP  LT.  NO. 

00010-12 5100 

MOVL 

1.1 

00011-101120 

MDVZL 

0.0 

00012'125100 

MOVL 

1.1 

00013'101120 

MDVZL 

0.0 

00014'12 5100 

MOVL 

1.1 

00015 '045026 

STA 

1.26.2 

00016'126400 

SUB 

1.1  ;ZE/Vw  iCi 

00017‘101120 

MDVZL 

0.0  ; EXTRA/'  GOT.  LY.  NO. 

00020'12 5100 

MOVL 

1.1 

00021'101120 

MDVZL 

0.0 

00022'125100 

MOVL 

1.1 

00023-101120 

MDVZL 

0.0 

00024'12 5100 

MOVL 

1.1 

00025-045027 

STA 

1.27.2 

00026' 126400 

SUB 

1.1  :ZERO  IN  fiCl 

00027 '101 120 

MDVZL 

0.0  .‘EXTRACT  PATH  DIRECTION 

00030 '125100 

MOVL 

1.1 

00031 '045030 

STA 

1.30.2 

00032 '176400 

SUB 

3.3 

00033-101132 

MDVZL f 

0.0. SZC  .‘SKIP  If  NO.  > DR-ZERO 

00034 '176520 

SUBZL 

3.3  ;DNE  IN  AC3 

00035 '101 300 

MOVS 

0.0  :ExTRhCT  DERIV.  SIGN  BIT 

00036 '041031 

STA 

0.31.2 

00037 '101120 

MDVZL 

0.0 

00040-1 01220 

MOVZR 

0.0  .‘EXTRACT  NO.  OF  HALF  CYC 

00041 '175004 

MOV 

3.3.SZR  .‘SKIP  IF  NO.  ) OR- ZERO 

00042 '102000 

ADC 

0.0  .‘MINUS  ONE  IN  AC0 

00043 '041032 

STA 

0. 32.2 

00044 ' 000406 

JMP 

DONRL  ; JUMP  AROUND 

00045 '0544 15  NRMB: 

STA 

3. RETRN  .‘SAVE  RETURN  ADR. 

00046 '031400 

LDA 

2.0.3  .‘GET  DATA  TB.  ADR. 

0004 7 '050404 

STA 

2.DTAD1 

00050 '050405 

STA 

2.  DTAD2 

00051 '050406 

STA 

2.DTAD3 

00052 '006411  DONRL: 

JSR 

S.FIN1  .‘CALCULATE  SOLUTION 

00053 '000000  DTAD1: 

0 

00054 '006410 

JSR 

6.F IN2 

00055 '000000  DTAD2: 

0 

00056 '006407 

JSR 

e.FG2 

00057 '000000  DTAB3: 

0 

00060 ' 034402 

LDA 

3. RETRN  ;GET  RETURN  ADR. 

00061 '001401 

JMP 

1.3  ; RETURN 

00062 '000000  RETRN: 

0 

LISTING  C12 
C-104 


NSWC/WOL/TR  75-115 


0002  NRMh 

00063' 177777  .FI Nl:  FIN1 
00064 ' 1 77777  .FINS:  FINS 

00065' 177777  .FG2:  FG2 

.END 


i j 
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FIN1  SUBROUTINE 

1.  The  FIN1  subroutine  computes  a table  of  values  used  by  the  FIN2 
subroutine.  This  subroutine  is  one  of  the  three  main  computational 
routines . 

2.  NRMA,  and  MNMX 

3.  JSR0  .FIN1 
BGDAT 

t 

• 

. FIN1 : FIN1 

4.  FPMP 

5.  LYVEL , TGSQ1 , SNSQ1 , ZVAL1,  FN1SK,  FN2SK,  TPNUM,  and  BTNUM 

6.  RGP,  DVP , TMP,  SRGP,  TRGP,  SDVP,  TDVP,  STMP,  TTMP , and  BMBFG 

7.  See  Figure  C13. 

8.  See  Listing  C13v 

9.  a)  This  subroutine  uses  the  FN1SK  and  FN2SK  flags  to  save 

computation  time. 

b)  If  the  value  of  z exceeds  a certain  maximum  value  then  an 

approximation  is  used  to  compute  the  tables  used  by  FIN2.  The 

/ p 2 P 

approximation  is  for  / z - v which  is  z - v /2z  when 

z is  >>  v.  Since  FIN2  subtracts  one  value  in  the  table  from 
another  the  z part  of  the  approximation  is  discarded. 
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c)  If  the  value  of  z is  equal  to  or  less  than  a value  of  v 


in  its  calculation  of 


then  the  solution  is 


invalid  and  BMBFG  is  set  to  one 


u; 

FIG.  C13 
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.NREL 

. TITL 

riNi 

.' 03/15/74 

000010 

. RDX 

8 

.ENT 

F INI 

.ENT 

ZMVTJ 

.ENT 

DV'TTB 

.ENT 

TMTTB 

.ENT 

TGRGl 

.ENT 

T6DV1 

.ENT 

TGTM1 

.ENT 

SNRG1 

.ENT 

SNDV1 

.ENT 

SNTM1 

.ENT 

BMBFG 

.EXTN 

LYVEL 

.E'XTN 

FFSQ 

.EXTN 

FFSB 

.EXTN 

FFSR 

.EXTN 

FFDV 

.EXTN 

FFLN 

00000 '054537  riNl: 

STfi 

3.RETRN 

.'SAVE  RETURN  ADR, 

00001 '102400 

SUB 

0.0 

00002 '040536 

ST  ft 

0. BMBFG 

00003 '031 400 

LDA 

2.0.3 

.'GET  DATA  TB.  ADR. 

00004 '050535 

STfi 

2.  DfiTfiD 

00005'020535 

LDA 

0. 1 NCI 

00006 '143000 

ADD 

2.0 

00007'04042? 

STfi 

0.ADZ1 

.'Z  VALUE  ADR. 

00010-04043? 

5Tft 

0, ADZE 

00011-040544 

STfi 

0.AD1 

00012'020531 

LDfi 

0.  INC3 

00013'143000 

ADD 

2.0 

00014'040531 

STA 

0. . TfiSV 

STG,  SND.  VEL.  ADR. 

00015'020527 

LDfi 

0. INC4 

00016'143000 

ADD 

2.0 

00017-040527 

STA 

0.  .sosv 

.'TG.  SND.  VEL.  ADR. 

00020-0 21033 

LDfi 

0.33.2 

00021 '040526 

STA 

0.FN1SK 

.'A+B  FLAG 

00022-021034 

LDfi 

0.  34. 2 

00023'040525 

STfi 

0.FN2SK 

.'TM.  Dr.  FLAG 

00024-021026 

LDfi 

0.26.2 

J TOP  LY.  NO. 

00025-02502? 

LDfi 

1.27.2 

.'BOT.  LY.  NO. 

00026-106 400 

SUB 

0.1 

fBOT.  NO.  -TOP  NO. 

00027'044522 

STA 

l.LPCNT 

.'STORE  AS  LOOP  COUNTER 

00030'111000 

MOV 

0.2 

.'MOVE  TOP  LAYER  NO. 

00031-020521 

LDfi 

0.  .LVV'L 

; ADR  OF  LY.  SND,  VEL. 

00032'024522 

LDA 

l.DBINC 

.'DATA  i^CK  INCREM. 

00033-073301 

MUL 

.'ADR,  +TOP  NO.  TIMES  3 

00034'044522 

STA 

l.ftBZ 

.'STORE  ADR.  OF  LY.  SND 

00035-006534 

JSR 

&.FSGQ 

JZ*2 

00036'000000  flDZl : 

0 

00037-000162' 

AD6 

00040-030525 

LDft 

2.ZMVST 

.'ADR.  OF  RG.  SORT,  TB. 

00041 '050516 

ST  ft 

2.  AD3 

00042'030524 

LDfi 

2.DVTBT 

.'ADR.  OF  DV,  SORT.  TB. 

00043-050515 

STfi 

2.AD4 

00044'030523 

LDfi 

2. TMTBT 

.'ADR,  OF  TM.  DY.  SORT. 

00045-050514 

STfi 

2.AD5 

00046'00 6522 

JSR 

S.FSUB 

JZ  - ZMAX.  LIM. 
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0004 7 '000000  AD7?; 

0 

;2  ADR. 

00050' 000172' 

MAXL1 

: 2MAX  LIM.  ADR. 

00051 '000175' 

TEMA1 

.'RESULT  ADR, 

00052 ' 020524 

LDA 

0.  TEMA2 

fGET  SIGN  OF  RESULT 

00053 '126400 

SUB 

1.1 

'.ZERO  IN  AC1 

00054' 101103 

MOVL 

0.0. SNC 

.'SKIP  IF  Z<  2MAX.  LIM. 

00055 '125400 

INC 

1,1 

00056 '044522 

STA 

1.2VLF6 

.'2  VAL.  LIM.  FLAG 

0005? '024521  LOOP: 

LDA 

1.2VLF6 

00060 '125004 

MOV 

1. 1.52R 

fSKIP  IF  Z<  2MAX.  LIM. 

00061 '006472 

JSR 

s.tscx 

.'>  2MAX.  LIM. 

00062'004525 

JSR 

TSCOM 

2MAX.  LIM. 

00063'0244?1 

LDA 

l.DBI.NC 

.'GET  DATA  BASE  INCREM. 

00064'C20472 

LDA 

0.AD2 

.‘SET  UP  NEXT  ADR. 

00065'123000 

ADD 

1.0 

00066'040470 

STA 

0.AD2 

00067'020470 

LDA 

0.  ADS 

00070-123000 

ADD 

1.0 

00071'040466 

STA 

0.  AD3 

00072'020466 

LDA 

0.AD4 

00073'123000 

ADD 

1.0 

00074'040464 

STA 

0.AD4 

00075 '020464 

LDA 

0.AD5 

000?6'123000 

ADD 

1.0 

00077 ' 040462 

STA 

0,  ADS 

00100-014451 

DS2 

LPCNT 

.' SKIP  WHEN  DONE 

00101-000756 

JMP 

LOOP 

.'LOOP  AGAIN 

00102'020445 

LDA 

0.FN1SK 

.'SKIP  A*B  RAY  CAL.  FLAG 

00103'101005 

MOV 

0.0. SNR 

00104-000431 

JMP 

ENDRR 

.'END 

00105-020440 

LDA 

0. . TASV 

.'ADR.  OF  TARG,  3ND.  VEL. 

00106-040450 

STA 

0.AD2  _ 

00107-020472 

LDA 

0. . TGRG 

.'ADR.  OF  TARG.  RNG.  SORT.  TB. 

00110-040447 

STA 

0.  ADS 

00111'0204?1 

LDA 

0. . T6DV 

.'ADR.  OF  TARG,  DV.  SORT.  TB. 

00112'040446 

STA 

0.AD4 

00113'020470 

LDA 

0. . TGTM 

.'ADR.  OF  TARG.  TM,  SORT.  TB. 

001 14'040445 

STA 

0.AD5 

00115-024463 

LDA 

1.2VLFG 

.'2  VAL.  LIM.  FLAG 

00116-125004 

MOV 

1.1. S2R 

.'SKIP  IF  2 < 2MAX,  LIM. 

00117-004554 

JSR 

TSCXM 

; > 2MAX,  LIM. 

00120'00 4467 

JSR 

TSCOM 

.'<  2MAX.  LIM. 

00121'020425 

LDA 

0. .SOSV 

,'ADR,  OF  SONO.  SND,  VEL. 

00122-0 40434 

STA 

0.AD2 

00123-020461 

LDA 

0.  .SNRG 

.'ADR.  OF  SONO.  RNG.  SORT.  TB. 

00124'040433 

STA 

0.  ADS 

00125-020460 

LDA 

0.  . SNDV 

.'ADR.  OF  SONO.  DV.  SORT.  TB. 

00126-040432 

STA 

0.AD4 

0012?'020457 

LDA 

0. . SNTM 

.'ADR.  OF  SONO.  TM.  SORT.  TB. 

00130'040431 

STA 

0.AD5 

00131-024447 

LDA 

l.ZVLFG 

.'2  VAL,  LIM.  FLAG 

00132-125004 

MOV 

1.1,  S2R 

.'SKIP  IF  2 < 2MAX.  LIM. 

00133'004540 

JSR 

TSCXM 

> 2MAX.  LIM. 

00134-004453 

JSR 

TSCOM 

2MAX.  LIM. 

00135'034402  ENDRR: 

LDA 

3,  RETRN 

00136'001401 

JMP 

1.3 

00137-000000  RETRN: 

0 

0014 0-000000  BMBFG; 

0 

00141-000000  DATAD: 

0 
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0005  F INI 

00142 '000023  I NCI ; 23 

00143 '000007  INC3:  7 

00144*000004  INC4:  4 

00145*000000  . TASV;  0 
00146 '000000  . 505V;  0 

00147*000000  FN1SK:  0 
00150*000000  FN23K:  0 

00151 '000000  LPCNT;  0 
00152*177777  , LVV'L : LYVEL 

00153 ' 000273  * . T3CX:  TSCXM 

00154*000003  DBJ.NC;  3 


00155*000000  ADI:  0 
00156*000000  AD2;  0 
00157*000000  ADS:  0 
00160*000000  AD4:  0 
00161*000000  ADS:  0 
00162*000000  AD6;  0 
00163*000000  0 
00164*000000  0 


00165' 000405 ' ZMV5 T : ZMVTB 

00166*000421 *DVTBT:  DVTTB 

00167*000435' TMTBT:  TMTTB 

00170*177777  .FSUB:  FFSB 

001 71*177777  .FSQQ:  FF2Q 
00172*040020  MAXL1:  040020 

00173*077777  077777 

mm' 177777  177777 

00175*000000  TEMAlr  0 
00176*000000  TFMA2;  0 
00177*000000  0 

00200*000000  ZVLFG;  0 


00201' 000451 '.TGRG: 

T6RG1 

00202' 000454 '.T6DV; 

T6DV1 

00203 *000457*. TO TM: 

TGTM1 

00204 ' 000462 ' , 5.NR6 : 

SNRG1 

00205* 000465 *.3NDV: 

3.NDV1 

00206 '0004 70*. 5NTM; 

SNTM1 

00207*05455 2 TSCOM: 

5 7A 

3. RETUN 

f SAVE  RETURN  ADR. 

00210*020745 

LDA 

0.  ADI 

00211*040446 

STA 

0.AD7 

00212*020744 

LDA 

0.AD2 

00213*040413 

STA 

0.  ADS 

00214*040447 

ST  ft 

0.  ADS 

00215*020742 

LDA 

0.  AD3 

00216*040430 

STA 

0.AD10 

00217*040432 

STA 

0.AD11 

00220*0 40440 

STA 

0. AD12 

00221 '020737 

LDA 

0.AD4 

00222*040430 

STA 

0.  ADI 3 

002 23*020736 

LDA 

0.  ADS 

00224*040444 

STA 

0.AD14 

0022 5*006535 

JSR 

e.FSQR 

00226*000000  ADS; 

0 

00227*000374' 

ADI  5 

00230*006740 

JSR 

9.FSUB 

;Za2-Va2 

00231*000162' 

AD6 

00232*000374' 

AD15 

00233*000363* 

ADI  6 

00234*020530 

LDA 

0.ADX 

.'SIGN  OF  RESULT 
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00235' 101005 

MOV 

0. 0,  SNR 

.'SKIP  IF  NON  ZERO 

00236 '000m 

JMP 

ENTl 

00237' 101103 

MOVL 

0. 0.  SNC 

(SKIP  IF  NEGATIVE 

002*0 - 000m 

JMP 

A RND 

002m'  102520  ENT1; 

SUBZL 

0.0 

.'SET  FLAG 

002*2 '0*0676 

ST  A 

0. BMBF6 

002*3' 000672 

JMP 

ENDRR 

BOMB  OUT 

002**' 006522  ARNO: 

JSR 

e.FSQT 

.'SORT  IZ a2-Va2) 

002*5 '000363' 

AD16 

002*6 '000000  AD10; 

0 

00247*006520 

JSR 

6.FDIV 

; 1 /SORT I Za£ - Va2 } 

00250 ' 000370 ' 

ADI  7 

00251 '000000  mi: 

0 

00252 ‘000000  m3: 

0 

00253" 020675 

LDA 

0.  FN2S.K 

(SKIP  TM.  FLAG 

0025*' 101005 

MOV 

0. 0. SNR 

00255 '000*1* 

JMP 

ENLOP 

002 56-006712 

JSR 

S.FSUB 

;Z-5QRT(Za2-Va2) 

00257 '000000  AD  7; 

0 

00260' 000000  m2: 

0 

00261' 000363' 

AD16 

00262' 006505 

JSR 

6.FDIV 

;V/I ABOVE) 

00263' 000000  ADS; 

0 

0026* '000363' 

ADI  6 

00265 '000374' 

ADI  5 

00266-006505 

JSR 

8.FLNE 

.'LNl  ABOVE) 

00267 '000374' 

ADI  5 

00270' 000000  AD14; 

0 

00271'034470  ENLOP: 

LDA 

3. RETUN 

.'GET  RETURN  ADR. 

00272-001400 

JMP 

0.3 

.'RETURN 

00273'054466  TSCXM; 

STA 

3. RETUN 

.'SAVE  RETURN  ADR. 

00274-02066 2 

LDA 

0.AD2 

00275-040412 

STA 

0.  ADIS 

00276'040447 

STA 

0.AD25 

00277 '020660 

LDA 

0.AD3 

00300'040424 

STA 

0. AD20 

00301 '040425 

STA 

0.AD24 

00302'020656 

LDA 

0.AD4 

00303-040425 

STA 

0.AD21 

00304-020655 

LDA 

0.AD5 

0030 5'040441 

STA 

0.AD22 

00306'006454 

JSR 

e.FSQR 

r Va£ 

00307-000000  ADI 9; 

0 

00310-000377' 

AD23 

00311-034644 

LDA 

3.  ADI 

00312'021400 

LDA 

0.0.3 

00313'025401 

LDA 

1.1.3 

00314-031402 

LDA 

2,2.3 

00315' 101*00 

INC 

0.0 

00316' 0*0*6* 

STA 

0. DBZl 

00317-044464 

STA 

1.DBZ2 

00320'050464 

STA 

2. DBZ3 

00321 '006446 

JSR 

6.FDIV 

.'  Va  2/2Z 

00322-000377' 

AD23 

00323' 000*02' 

DB  21 

00324'000000  AD20; 

0 

0032 5'006442 

JSR 

S.FDIV 

.'Va2/2Za3 

00326-000000  AD24: 

0 

00327-000162' 

AD6 

H 
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0005  FIN1 


00330 ' 000000  AD21; 

0 

00331 '030773 

LDA 

2.AD20 

00332 '021001 

LDA 

0.1.2 

00333 '025002 

LDA 

1.2.2 

00334 '124404 

NEG 

1.1. SZR 

00335'100001 

COM 

0. 0.  SKP 

00336'100400 

NEC 

0.0 

00337'041001 

STA 

0.1.2 

00340'045002 

3TA 

1.2.2 

00341'020607 

LDA 

0.FN2SK 

00342'101005 

MOV 

0. 0.  SNR 

00343'000414 

JMF 

EXLOP 

00344'006427 

JSR 

e.FLNE 

00345-000000  AD25: 

0 

00346-000000  AD22 ; 

0 

00347-030777 

LDA 

2.AD22 

00350'021001 

LDA 

0.1.2 

00351 '025002 

LDA 

1.2.2 

0035 2-124404 

NEG 

1.1.  SZR 

00353'100001 

COM 

0. 0.  SKP 

00354'100400 

NEG 

0.0 

00355-041001 

STA 

0.1.2 

00356'045002 

STA 

1.2.2 

00357-034402  EXLOP: 

LDA 

3. RETUN 

00360 '001401 

JMP 

1.3 

00361'000000  RETUN: 

0 

00362 '0001 71'. FSGR; 

FFSfi 

00363-000000  ADI 6; 

0 

00364'000000  ADX; 

0 

00365 '000000 

0 

00366-177777  .ESGT; 

FfSR 

00367'177777  .FDIV; 

FFDV 

00370-040000  ADI 7: 

040000 

; ONE 

00371 '077777 

077777 

00372-177777 

177777 

00373-177777  ,FLN E: 

FFLN 

0037 4-000000  ADI 5: 

0 

00375'000000 

0 

00376 '000000 

0 

00377-000000  AD23; 

0 

00400'000000 

0 

00401 ' 000000 

0 

00402-000000  DBZl; 

0 

00403-000000  DBZ2; 

0 

00404-000000  DBZ3: 

0 

00405-000000  ZMVTBt 

0 

000013 

,BLK 

13 

00421'000000  DVTTB: 

0 

000013 

.51 K 

13 

00435-000000  TMTTB; 

0 

000013 

• BLK 

13 

00451-000000  TGR81; 

0 

00452-000000 

0 

00453-000000 

0 

00454'000000  T6DV1; 

0 

00455‘000000 

0 

00456 '000000 

0 

00457"000000  T6TM1; 

0 

00460-000000 

0 

;-Va£/2 7 


:LN(V) 


l-LN(V) 
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00461 '000000  0 

00462 '000000  SNR61;  0 
00463 ' 000000  IS 

00464 ' 000000  0 

00465 '000000  SNDVl:  0 
00466 '000000  0 

00467 '000000  0 

004  70 '000000  5.NTM1:  0 

00471 '000000  0 

004 72 '000000  0 

.£  ND 
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r 


I 


' 


PIN2  SUBROUTINE 

1.  The  PIN2  subroutine  uses  the  tables  computed  In  PIN1  to 
calculate  the  A,  B,  and  C parts  of  the  ray  path  horizontal  range, 
derivative,  and  time  delay.  This  subroutine  is  one  of  the  three 
main  computational  routines. 

2.  NRMA  and  MNMX 

3.  JSR@  . F1N2 
BGDAT 


I 


. FIN2 : P1N2 

4.  FPMP 

5.  GDTBL,  ZVAL1 , FN1SK,  RGP,  DVP,  TMP,  SRGP,  TRGP,  SDVP,  TDVP, 

STMP,  TTMP,  TPNUM,  AND  BTNUM . 

6.  ARG1 , BRG1 , CRG1 , ADV1 , BDV1,  CDV1,  ATM1 , BTM1 , and  CTM1. 

: 

7.  See  Figure  Cl4* 

8.  See  Listing  Cl4 . 

9.  a)  This  subroutine  uses  the  FN1SK  fl  .g  to  save  computation 

I 

time . 

b)  The  A,  B,  and  C parts  of  the  ray  path  are  computed  by  adding 
up  the  contributions  of  the  circular  segments  in  each  of  the 
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layers  through  which  the  ray  path  travels.  This  is 
accomplished  using  the  Type  1,  2,  and  3 circular  segment 
equations . 
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CRG1*(TEMR-SRGR}/GDTBL(J-1)  =>  ftRGl 
CDV1+ ( TEMD-SDVP) /GDTBL (J-l)  =>  ftDVl 
CTM1  + (TEMT-STMP)/GDTBL(J-1)  =>  ftTMl 


R ETRl  =>  AC3 


JMP  0.3 


TGChL  ENTRY 


AC3  =>  RETRl 


<TPN'JM  = 
SLY  ft 
o 


0 => 

TEMR 

RGP(K-l)  =>  TEMR 

0 => 

TEMD 

DVPlK-1 j =>  TEND 

0 => 

TEMT 

TMP(K-l)  =>  TEMT 

CRGl 1 1 TEMR-TRGP j /GDTE'L (K-l)  =>  BRG1 
CDV1 f ( TEMD- TDVPj/GDTBL (K-l j =>  BD^l 
CTMlt(TEMT-TTMP)/GDTBL(K-l)  =>  BTM1 


RETRl  =>  AC3 


JMP  0.3 


FIG.  C14  (CONTINUED) 
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0001  FIN2 


.NREL 

.TJ7L 

F1N2 

.•03/21/74 

000010 i 

.RDX 

Q 

.ENT 

F1N2 

.ENT 

ARGl 

.ENT 

ADV1 

.ENT 

ATM1 

.ENT 

BRGl 

.ENT 

BDV1 

.ENT 

BTM1 

.ENT 

CRG1 

.ENT 

CDV1 

.ENT 

CTM1 

.EXTN 

2MVTB 

.EXTN 

DVTTB 

.EXTN 

TMTTB 

.EXT  N 

5NRG1 

.EXTN 

SNDV1 

.EXTN 

SNTM1 

.EXTN 

TGRG1 

.EXTN 

TGDV1 

.EXTN 

TGTM1 

.EXTN 

GDTBL 

.EXTN 

FFAD 

.EXTN 

FFSB 

.EXTN 

FFML 

.EXTN 

FFDV 

00000-000000  topln; 

0 

men 'mm  botln: 

0 

00002 '000000  SONLN.' 

0 

men 'mm  tagln; 

0 

00004 '000545 '.ZVLl: 

ZVLE1 

00005 '000023  INCH 

23 

00006 '000000  FN1SK: 

0 

00007 ' 000221 ' , RETN; 

RETRN 

00010 '056777  F1N2: 

STA 

S3. .RETT 

! .'SAVE  RETURN  ADR. 

00011' 031400 

LDA 

2.0.3 

{GET  DATA  TB.  ADR. 

00012 '021026 

lda 

0.26.2 

{TOP  LY,  NO. 

00013 '040765 

STA 

0. TOPLN 

00014 '021027 

LDA 

0.27.2 

{BOT.  LY.  NO. 

00015 '040764 

STA 

0. BOTLN 

00016 '021020 

LDA 

0. 20.2 

: 30.N0.  LY.  NO. 

0001 7 '040763 

STA 

0. SONLN 

00020 '021021 

LDA 

0.21.2 

.'TAR6.  LY.  NO. 

00021 '040762 

STA 

0. TAGLN 

00022 '020763 

LDA 

0.  INC1 

00023 '143000 

ADD 

2.0 

{Z  VALUE  ADR, 

00024 '040542 

STA 

0.  Z’/LEA 

00025 '04275? 

STA 

60. .ZVLl 

00026 '021033 

LDA 

0. 33. 2 

;A+B  FLAG 

00027 '04075? 

STA 

0.FN1SK 

00030 '0205 72 

LDA 

0. ,GDTB 

{GET  ADR.  OF  GRAD,  TB. 

00031 '024747 

LDA 

1.  TOPLN 

{GET  TOP  LY.  NO. 

00052 '030571 

LDA 

2.  DBINC 

.'GET  DATA  BLOCK  INCREMENT. 

00033 '176520 

SUBZL 

3. 3 

.'ONE  IN  ACS 

00034 '125004 

MOV 

1.1.  SZR 

.'SKIP  IF  TOP  LY.  NO.  IS  ZERO 

00035 '166400 

SUB 

3. 1 

.'TOP  LY,  NO.  - ONE 

00036 '135000 

MOV 

1.3 

.'SAVE  RESULT 

00037 '073301 

MUL 

: COMPUTE  ADR.  OF  GRAD,  TB. 
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000*0 '046564 

STA 

61. ,GDA1 

000*1 '0*656* 

STA 

61. ,CDA2 

u00*£ ' 0*656* 

STA 

61. ,6DA3 

000*3' 02*736 

LDA 

l.BOTLN  {GET  BOT.  LAY.  NO. 

000** ' 121000 

MOV 

1.0  fSAVE 

000*5 '166*00 

SUB 

3.1  .'BOT,  LY.  NO.  - ADJ,  TOP  LY.  NO. 

000*6' 0**561 

STfi 

1. CNTRR  .'STORE  AS  LOOP  COUNTER 

000*7 '030562 

LDf) 

2.F0URQ  .'GET  FOUR 

0005 0' 112*00 

SUB 

0.2  .'FOUR  - BOT.  LY.  N 0 

00051 ‘151005 

MOV 

2. 2. SNR  .'SKIP  IF  BOT.  LY.  NO.  IS  NOT  FOUR 

00052' 01*555 

DSZ 

CNTRR  .'SUB.  ONE  FROM  LOOP  COUNTER 

00053 '350557 

ST  A 

2.BTFRD  .'STORE  AS  BOT.  LY,  IS  4 FLAG 

0005* '030553 

LDA 

2. CNTRR 

00055'050553 

STA 

2.TPBTD  ;TOP  BOT  LAYER  DIFF.  FLAG 

00056 '02*72* 

LDA 

l.SONLN 

00057' 166*00 

SUB 

3.1  .'SONG.  LY.  NP.  -ADJ.  TOP  LY,  NO 

00060 '0**553 

ST  A 

1.5NCNT 

00061 ‘02*722 

LDA 

l.TAGLN  .'GET  TAR6,  LY.  NO. 

00062' 166*00 

SUB 

3.1  ;TAR6.  LY.  NO.  - ADJ.  TOP  LY,  NO. 

00063 '044551 

STA 

l.TGCNT 

0006*' 102*00 

SUB 

0.0  {ZERO  IN  AC0 

00065 ‘02*550 

LDA 

l.DATCN  .'NO.  OF  DATA  LOCATION 

00066' 030550 

LDA 

2. DATPR 

00067' 0*1000  DATLP; 

STA 

0.0.2  {INITIALIZE  DATA  LOOP 

00070' 151*00 

INC 

2.2 

00071 '125*0* 

INC 

1.1. SZR 

00072 '000775 

JMP 

DATLP 

00073 '020705 

LDA 

0.TOPLN  { GET  TOP  LAYER  NO, 

0007*' 126*00 

SUB 

1.1  .'ZERO  IN  AC1 

00075' 10100* 

MOV 

0.0. SZR  .'SKIP  IF  TOP  LY.  NO.  IS  ZERO 

00076' 125*00 

INC 

1.1  ?ONE  IN  ACl 

00077 '044540 

STA 

l.TPFLG  {STORE  AS  TOP  LY.  IS  ZERO  FLAG 

00100 '030540 

LDA 

2.ZMVST  (GET  ADR.  OF  RG.  SQRTMTB . 

00101 '0525*2 

STA 

§2.  .RGAUSET  UP  ADR'S 

00102' 03*521 

LDA 

3. DB INC  .'GET  DATA  BLOCK  INCREM. 

00103 '173000 

ADD 

3.2 

001 04 '052540 

STA 

62. .RGA2 

00105 '030534 

LDA 

2.DYTBT  .'GET  ADR.  OF  DV,  SORT  TB. 

00106' 052537 

STA 

§2.  .DVAl.'SET  UP  ADR.  '5 

00107 '173000 

ADD 

3.2 

001 10 '052536 

STA 

62. . DVA2 

00111 '030531 

LDA 

2.TMTBT  .'GET  ADR.  OF  TM.  SORT  TB. 

00112 '052535 

STA 

62, _ . THAI 

00113' 173000 

ADD 

3.2 

0011*' 05253* 

STA 

62.  . T.MA2 

001 15 '020671  LOOP; 

LDA 

0.FN1SK{SKIP  OVER  A AND  B CAL.  FLAG 

001 16 '101005 

MOV 

0. 0. SNR 

001 17 '000407 

JMP 

ENT  11 

00120' 014513 

D32 

SNCNT  ;A  FLAG 

00121 '000402 

JMP 

, +2 

00122 '006527 

JSR 

e.SNCL  .'DO  A PART  OF  RAY 

00123'014511 

DSZ 

TGCNT  .'B  FLAG 

00124 ' 000402 

JMP 

.+2 

00125 '006525 

JSR 

S.TGCL  '.DO  B PART  OF  RAY 

00126 '020501  ENTU; 

LDA 

0. CNTRR  .'GET  LOOP  COUNTER 

00127' 10123* 

MOVZRt 

0.0.  SZR  .'SKIP  IF  COUNTER  ONE 

00 130 '000* 13 

JMP 

ENTR1  {NOT  LAST  LOOP  THRU  PROGRAM 

00131 '01**77 

D SZ 

TPBTD  .'SKIP  IF  LY,  DIFF.  FLAG  IS  ONE 

001 32 '000405 

JMP 

ENTR2  .'TOP  AND  BOT.  LY.  NO.'S  DIFF.  BY 
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0003  FINE 


00133 '020477 

LDA 

0. BTFRD 

.'GET  BOT.  LY.  IS  FOUR  FLAG 

00134 ’ 101004 

MOV 

0.0. SZR 

{SKIP  IF  FLAG’  IS  ZERO 

00135 '000412 

JMF 

ENTR3 

00136'000420 

JMF 

ENTR5 

00137 '020473  ENTR2: 

LDA 

0.  BTFRD 

.'GET  BOT.  LY.  IS  FOUR  FLAG 

00140' 101004 

MOV 

0. 0.  SZR 

f SKIP  IF  FLAG  IS  ZERO 

00141 '000406 

JMF 

ENTR3 

001 42 '000407 

JMP 

ENTR4 

00143 '020474  ENTR1; 

LDA 

0. TPFLG 

.'GET  TOP  LY.  IS  ZERO  FLAG 

00144 '101004 

MOV 

0.0.  SZR 

.'SKIP  IF  FLAG  IS  ZERO 

00145 '000411 

JMF 

ENTR5 

00146 '000403 

JMP 

ENTR4 

00147'004525  ENTR3; 

JSR 

ONEP 

.'ADD  IN  BOT.  TURN  AROUND  RAY 

00150'000414 

JMF 

ENDRR 

.'END  OF  LOOP 

00151 '004503  ENTR4: 

JSR 

THOD 

.'ADD  IN  THRU  LAYER  RAY 

00152'004420 

JSR 

INCAD 

.'UPDATE  DATA  TB.  ADR.'S 

00153'014454 

DSZ 

CNTRR 

.'SKIP  IF  COMPUT.  COMPLETE 

00154'000741 

JMF 

LOOP 

.'LOOP  TO  NEXT  LAYER 

00155'000407 

JMF 

ENDRR 

.'END  OF  LOOP 

00156'004522  ENTR5; 

JSR 

ONEN 

.'ADD  IN  TOP  TURN  AROUND  RAY 

00157-004433 

JSR 

INC6D 

00160'102400 

SUB 

0.0 

00161'040456 

ST  A 

0. TPFLG 

.'SET  FLAG  TO  ZERO 

00162'014445 

DSZ 

CNTRR 

.'SKIP  IF  COMFUT.  COMPLETE 

00163'000732 

JMP 

LOOP 

.'LOOP  TO  NEXT  LAYER 

00164'006467  ENDRR; 

JSR 

8.FMUL 

.'Z.  * TOTAL  DERIV. 

00165-000564" 

CDV1 

00166'000000  ZVLEA: 

0 

00167-000564' 

CDV1 

00170'03 4431 

LDA 

3. RETRN 

.'GET  RETURN  ADR, 

00171-001401 

JMP 

1.3 

.'RETURN 

00172-020431  INCAD; 

LDA 

0.  DBINC 

.'GET  DATA  BASE  INCREM. 

00173-024465 

LDA 

1.RGA1 

.'SETUP  NEXT  ADR '.5 

00174'107000 

ADD 

0.1 

001 75 '044463 

STA 

l.RGAl 

00176-107000 

ADD 

0.1 

00177'044462 

STA 

1.RGA2 

00200'0244 64 

LDA 

1 . DV'Al 

00201-107000 

ADD 

0.1 

00202'044462 

STA 

1.  DV'Al 

00203 ' 107000 

ADD 

0.1 

00204-044461 

STA 

1.DVA2 

00205-024463 

LDA 

1.TMA1 

00206-107000 

ADD 

0.1 

00207-044461 

STA 

1.TMA1 

00210'107000 

ADD 

0.1 

00211-044460 

STA 

1.TMA2 

00212-020411  INC6D; 

LDA 

0. DBINC 

00213'024507 

LDA 

1.GDA1 

00214 '107000 

ADD 

0.1 

00215'044505 

STA 

1.GDA1 

00216-0^4510 

STA 

1.GDA2 

00217'044513 

STA 

1.GDA3 

00220-001^00 

JMP 

0. 3 

.'RETURN 

00221-000000  RETRN; 

0 

00222'177777  .GDTB; 

GDTBL 

00223 ' 000003  DBINC ; 

3 

00224' 000322 '.GDAl: 

GDAl 

00225'000326' ,GDA2; 

GDA2 

' 


I 

I 


i 

I 
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0004  F i N2 


00226' 000332 '.GDAS: 

GDA3 

00227 '000000  CNTftR; 

Si 

00230 '000000  TFBTD: 

Si 

00231 '000004  FDURQ: 

4 

00232 '000000  BTFRD; 

Si 

00233 '000000  SNCNT; 

0 

00234 '000000  T6C.NT; 

0 

00235 '177745  DATCN; 

177745 

27 

00236 ' 000561 'DATPR; 

CR6 1 

00237 '000000  TPFLG; 

0 

00240 '177777  ZMVST: 

2MVTB 

00241 '177777  DV'TBT: 

DVT  IB 

00242 '177777  TMTBT: 

TMTTB 

00243 ' 000260 ' . RGAl  ; 

RGAl 

00244 '000261 ' . R6A2: 

RGA 2 

00245 '000264 ' , DV'Al : 

DVA 1 

00246' 000265 '.DVA2; 

DVA2 

00247 '0002 70', THAI: 

THAI 

00250 '000271 ' , THA2; 

TMA2 

00251 ' 000413 '.SNCL; 

SNCAL 

00252 '000426 '-TGCL: 

TGCAL 

00253 '177777  .FMUL; 

FF.ML 

00254 '054516  TWOD; 

STA 

3,  RETUN 

.'SAVE  RETURN  ADR. 

00255 '102400 

SUB 

0.0 

:ZERQ  IN  A C0 

00256 '040515 

STA 

0. FLAol 

.'SET  FLAG  TO  2ER0 

00257'006515 

JSR 

8.FSUB 

.'RG,  SORT  1 - RG.  SGRT2 

0026 0*000000  RGAl; 

0 

00261' 000000  R6A2; 

0 

00262 '000375 ' 

TEMA1 

00263'006511 

JSR 

B.FSUB 

,'DV.  5QRT1  - DV.  50RT2 

00264'000000  Dv'Al ; 

0 

00255-000000  DVA2: 

0 

.'ADR,  OF  BOT.  LY,  DV,  SORT. 

00266 ' 000400 ' 

TEM A2 

.'ADR.  OF  RESULT 

00267'006505 

JSR 

g.FSUB 

,'TM.  SGRTl  - TM.  SGRT2 

00270'000000  THAI; 

0 

;ADR.  OF  TOPLY.  TM.  SORT 

00271'000000  TMA2; 

0 

.'ADR,  OF  BOT.  LY.  TM.  SORT 

00272 '000403' 

TE  MAS 

.'ADR,  OF  RESULT 

00273'00041? 

JMP 

ENTR6 

.'FIX  ADR,  'S  FOR  FPDV  SUBROUTINE 

00274'0544?6  QNEP: 

STA 

3. RETUN 

{SAVE  RETURN 

002 75'102400 

SUB 

0.0 

; ZERO  IN  .AC0 

002?6'040475 

STA 

0.FLAG1 

.' INITIAL I2E  FLAG  ONE 

00277 '000404 

JMP 

E.NTR7 

,'FIX  ADR.  '5  MFOR  FPDV  SUBROUTINE 

00300'0544?2  ONEN; 

STA 

3.  RETUN 

.'SAVE  RETURN  ADR, 

00301'102520 

SUB2L 

0.0 

.'ONE  IN  AC0 

00302'0404?  1 

STA 

0.FLAG1 

.'  INITIALIZE  FLAG  ONE 

00303-020755  ENTR7; 

LDA 

0. RGAl 

.'STORE  ADR.  '5  OF  SORT 

00304'040415 

STA 

0.FXAD1 

.'TABLES  IN  FPDV  SUBROUTINE 

00305'02075? 

LDA 

0.  DVA1 

00306-04041? 

STA 

0.FXAD2 

00307'020761 

LDA 

0. T MAI 

00310'040421 

STA 

0.FXAD3 

0031 1 - 00040? 

JMP 

ARND1 

'.JUMP  AROUND  NEXT  PART 

00312 '020^74  ENTR6; 

LDA 

0. . TEM1 

.'STORE  ADR.  'S  OF  SORT 

00313'040406 

STA 

0.FXAD1 

! DIFFERENCES  IN  FPDV  SUBROUTINE 

00314'0204?3 

LDA 

0. . TEM2 

00315-040410 

STA 

0.FXAD2 

00316'0204?2 

LDA 

0. . TEM3 

00317'040412 

STA 

0.  FxADS 

00320'006471  ARND1 : 

JSR 

S.FDIV 

i (ABOVE  RG.  RESULT! /GRAD. 
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00321 ' 000375 ' FXflDl ; 

TEMAl 

;ADR.  OF  RG.  RESULT 

00322 '000000  GDA1; 

0 

;ADR.  OF  GRAD. 

00323 '000375' 

TEMAl 

.'ADR.  OF  RESULT 

00324 '006465 

J5R 

S.FDIV 

.'(ABOVE  DV.  RESULT) /GRAD. 

00325 '000400 TXAD2; 

TE.MA2 

;ADR.  OF  DV.  RESULT 

00326'000000  GDA2; 

0 

; ADR.  OF  GRAD. 

00327'000400' 

TEMA2 

fADR.  OF  RESULT 

00330-006461 

JSR 

&.FDIV 

.'(ABOVE  TM.  DV.  RESULT ) /GRAD . 

00331 '000403 'FXAD3; 

TEN  A3 

.'ADR.  OF  TM.  DY.  RESULT 

00332 ' 000000  GDA3; 

0 

.'ADR.  OF  GRAD. 

00333 '000403' 

TEMA3 

.'ADR.  OF  RESULT 

00334'020437 

LDA 

0, FLAGl 

.'GET  FLAG  ONE 

00335'101005 

MOV 

0. 0,  SNR 

I SKIP  IF  FLAG  IS  ONE 

00336-000416 

JMP 

E.NTR6 

.'ADD  IN  LAYER  RESULTS 

00337-006435 

JSR 

§ . FSUB 

.'HC.  RG.  SUB  TOTAL  - LY.  RG. 

00340-00056 1' 

CRG1 

.'ADR.  OF  HALF  CYC.  RANGE 

00341-000375' 

TEMA1 

.'ADR.  OF  LY.  RG. 

00342-000561' 

CRG1 

;ADR.  OF  HALF  CYC,  RANGE 

00343'006431 

JSR 

6.FSUB 

.'HC.  DV.  SUB  TOTAL  - LY  DERIV 

00344-000564' 

CDV1 

.'ADR.  OF  HALF  CYC.  DERIV. 

00345'000400' 

TEMA2 

; ADR.  OF  LY. DERIV 

00346'000564' 

CDV1 

,'ADR.  OF  HALF  CYC.  DERIV 

00347'006425 

JSR 

6. FSUB 

.'HC.  TM.  DY.  SUB  TOTLA  - LY.  ' 

00350-000567' 

CTM1 

.'ADR.  OF  HALF  CYC.  TM.  DY. 

0035 1-000403' 

TEMA3 

.'ADR.  OF  LY,  TM.  DY. 

00352-000567' 

cm 

,'ADR.  OF  HALF  CYC.  TM.  DY. 

00353-000415 

JMP 

ENTR9 

.'END  FIN2 

00354-0064.6  ENTR8: 

JSR 

g.F ADD 

.'HC,  RG.  SUB  TOTAL  + LY.  RG. 

00355-000561' 

CRG1 

.'ADR.  OF  HALF  CYC,  RANGE 

00356 '000375 ' 

TEMA1 

.'ADR.  OF  LY.  RG. 

00357-000561- 

CRGl 

.'ADR.  OF  HALF  CYC.  RANGE 

00360-006432 

JSR 

6.FADD 

.'HC.  DV.  SUB  TOTAL  + LY.  DV. 

00361 '000564 ■ 

CDV1 

.'ADR,  OF  HALF  CYC.  DERIV. 

00362-000400' 

TEMA2 

.'ADR,  OF  LY.  DERIV. 

00363'000564' 

CDV'l 

,'ADR.  OF  HALF  CYC.  DERIV, 

00364'006426 

JSR 

6.FADD 

,'HC.  TM.  DY.  SUB  TOTAL  t LY. 

00365 '000567 ' 

cm 

fADR,  OF  HALF  CYC.  TM.  DY. 

00366'000403' 

TEMA3 

.'ADR.  OF  LY.  TM.  DY, 

00367'000567' 

cm 

.'ADR,  OF  HALF  CY.  TM.  DY. 

003 70'034402  ENTR9: 

LDA 

3. RETUN 

.'GET  RETURN  ADR. 

00371 '001400 

JMP 

0.3 

.'RETURN 

00372-000000  RETUN ; 

0 

00373'000000  FLAGl ; 

0 

00374'177777  .FSUB: 

FFSB 

00375 '000000  TEMAl; 

0 

00376'000000 

0 

00377'000000 

0 

004 00'000000  TEMA2; 

0 

00401 ' 000000 

0 

00402 ' 000000 

0 

004 03'000000  TEMA3; 

0 

00404 ' 000000 

0 

00405 " 000000 

0 

00406 '0003 75 '.TEM1; 

TEMA1 

00407' 000400 '.TEM2: 

TEMA2 

00410' 000403 '.TEM3: 

TEMA3 

00411'177777  .FDIV'; 

FFDV 

00412-177777  .F ADD: 

FFAD 

00413'054426  SNCAL ; 

STA 

3.RETR1 

f SAVE  RETURN  ADR. 
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00414 "0044£6 

JSR 

TSCAL  .'DO  CALCULATION  TOR  A 

00415' 177777 

5.NRG1 

00416 '177777 

5NDV1 

00417- 177777 

3NTM1 

004 20-000002' 

SONLN 

00421 ■000572' 

ARG1 

00422'000 575' 

AD  VI 

00423 '000600- 

mi 

00424 "034415 

LDP 

3. RETRl  .'GET  RETURN  ADR. 

00425'001400 

JMP 

0.3  .'RETURN 

00426'054413  TSCPL: 

STP 

3. RETRl  .'SAVE  RETURN  ADR. 

00427-004413 

JSR 

TSCAL  ;DO  CALCULATION  FOR  B 

00430-177777 

TORSI 

00431-177777 

TSDV1 

00432-177777 

T6TM1 

00433 '000003' 

TAGLN 

00434 ' 000603 ' 

BRGl 

00435-000606' 

BDV1 

00436-000611' 

BTM1 

00437-034402 

LDA 

3. RETRl  ;G£T  RETURN  ADR, 

00440'001400 

JMP 

0. 3 ; RETURN 

00441-000000  RETRl ; 

0 

00442'054513  TSCAL; 

STA 

3.RETR2  .'SAVE  RETURN  ADR. 

00443'021400 

LDP 

0.0.3  .'SET  UP  ADR  IN  SUBROUTINE 

00444-040441 

stp 

0. RGA4 

00445*021401 

LDP 

0.1.3 

00446'040443 

3TA 

0. DVA4 

00447'021402 

LDA 

0.2.3 

00450-040445 

STA 

0.TMA4 

00451'021404 

LDA 

0. 4. 3 

00452 ' 040464 

STA 

0.RGA5 

00453-021405 

LDA 

0. 5. 3 

00454-040466 

STA 

0. DVA5 

00455-040467 

STA 

0.DVA6 

00456'040470 

STA 

0.DVA7 

00457-021406 

LDA 

0.6.3 

00460-040472 

STA 

0. TMA5 

00461 '020641 

LDA 

0. GDAl 

00462'040437 

STA 

0.GDA4 

00463'040442 

STA 

0,  GDA5 

00464'040445 

STA 

0. GDA6 

00465'023403 

LDA 

§0.3.3  ;GET  OBJ,  LV.  NO. 

00466'026470 

LDA 

§1. , TPNM:GET  TOP.LY . NO, 

00467' 106404 

SUB 

0.1. 52R  .'SKIP  IE  THO  LV.  EQUAL 

00470'000405 

JMP 

THOXD 

00471'020466  ONEXN; 

LDA 

0.  ,ZE Rl  .'GET  ZERO  DATA  ADR. 

00472'105000 

MOV 

0.1 

00473'111000 

MOV 

0.2 

00474-000404 

JMP 

ENT  10 

00475'022522  THOxD; 

LDA 

§0. RGAlA 

00476-026522 

LDA 

61.DVA1A 

00477'032522 

LDA 

§2. TMAlA 

00500-040404  ENT  10: 

STA 

0.RGA3  ,' SET  UP  ADR.  '5 

00501-044407 

STA 

1.DVA3 

00502-05 0412 

STA 

2,  TMA3 

00503'006671 

JSR 

g.FSUB  ;R61  - RGOB 

00504-000000  RGA3: 

0 

00505'000000  RGA4; 

0 

00506-000375' 

TEMPI 
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0007  FIN2 

00507' 006665  JSR  6.FSUB  (DV1  - DVOB 


005 1 0 ' 000000  DVftS:  0 

00511 '000000  DVA4;  0 

00512' 000400'  T£  m2 

0051 3 '006661  JSR  S.FSL'B  iTM  1 - TMOB 

00514 '000000  TMA3;  0 

00515 '000000  TMA4:  0 

00516 '000403'  TEMA3 

0051?' 006612  JSR  e.FDIV  : (DELTA  R6..V  GRAD. 

00520 '000375'  TEMA1 

00521' 000000  6DM:  0 

00522' 000315 ' TEMPI 

00523' 006666  JSR  e.FDIV  ( (DELTA  DV,)/  GRAD. 

00524 ' 000400 ' TEMA2 

00525 '000000  GDA5r  0 

00526 ’000400'  TEMA2 

00527'006662  JSR  e.FDIV  .'(DELTA  TM.V  GRAD. 

00530' 000403'  TEMPS 

00531 '000000  6DA6;  0 

00532  ’000403'  TEMA3 

00533 '006657  JSR  e.FADD  (TOTAL  UP  RNG. 

00534 '000375'  TE.MA1 

00535-000561'  CRG1 

00536'000000  RGA5;  0 

00537 '006653  JSR  e.FADD  (TOTAL  UP  DV. 

005 40'000400'  TEM A2 

00541 ' 000564 ' CDV'l 

00542 '000000  DVA5;  0 

00543'006415  JSR  e.FMPY  (2  TIMES  DV,  CAL. 

00544'000000  DVA6;  0 

005^5 '000000  2VLE1;  0 

00546 '000000  DVA7;  0 

00547'006643  JSR  e.FADD  (TOTAL  UP  TM. 

00550'000403'  TEMA3 

00551-000567'  CTM1 

00552-000000  TMA5;  0 

00553 '034402  LDA  3 .RETR2  (GET  RETURN  ADR. 

00554-001407  JMP  7.3  : RETURN 

00555 '000000  RETR2:  0 

00556 ' 000000 ' , TPNM:  TOPL.N 

00557-000614'. 2ER1:  2ER01 

00560 ' 000253 ' . FMPY;  FFML 

00561-000000  CRGli  0 

00562-000000  0 

0056 3'000000  0 

00564-000000  CDV1;  0 

00565' 000000  0 

00566 ' 000000  0 

00567-000000  CTM1:  0 

00570-000000  0 

00571-000000  0 

00572' 000000  ARG1;  0 

00573' 000000  0 

00574 '000000  0 

00515' 000000  ADV1;  0 

00576' 000000  0 

00577 '000000  0 

00600-000000  ATMlf  0 

00601-000000  0 
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0008  FINE 

00602 '000000  0 
00603' 000000  BR81;  6 

00604 '000000  0 

00605 '000000  0 

00606 '000000  EDV'l ; 0 

00607 '000000  0 

00610 ‘000000  0 
00611' 000000  BTM1;  0 
00612' 000000  0 
00613 '000000  0 

00614' 040000  2ER01;  040000 

00615 '000000  0 

00616' 000000  0 
00617' 000260' RGMfa  RSAl 
00620 ' 000264 ' DVfilfi ; D VA1 
00621 '000270' TMA1A;  T MAI 

.END 


I 

i II 
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PQ2  SUBROUTINE 

1.  The  FQ2  subroutine  combines  the  A,  B,  and  C parts  of  the  ray 
path  to  form  the  total  horizontal  range,  total  derivative,  and 
total  time  delay  for  the  path.  This  subroutine  is  one  of  the 
three  main  computational  routines. 

2 . NRMA 

3.  JSR@  . FQ2 
BGDAT 


I i 


. FQ2 : FQ2 

4.  FPMP 

5.  DIRMD , NUMCY,  ARG1 , ADV1,  ATM1,  BRG1 , BDV1,  BTM1,  CRG1,  CDV1, 
and  CTM1. 

6.  TRG1 , TDV1 , and  TTM1. 

7.  See  Figure  C15. 

8.  See  Listing  C15c 

9.  The  following  algorithm  is  computed  by  this  subroutine: 
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DIRMD 

NUMCY  (N) 

C Value 

1 

EVEN  NO. 

N-C  + A 

+ B 

0 

EVEN  NO. 

(N+2 ) • C 

- A 

- B 

0 

ODD  NO. 

(N+1)*C 

- A 

+ B 

1 

ODD  NO. 

(N+l)-C 

+ A 

- B 

if  N = -1  then  C=A-BorB-A  based  on  which  of  the  two 
calculations  gives  a positive  result  for  the  horizontal  range. 
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.NREL 
. TITL 

FG2  .'3/15/74 

000010 

. RDX 

» 

.ENT 

FQ£ 

.ENT 

TRGl 

.ENT 

TO  VI 

.ENT 

TTM1 

, EX'T.N 

ARG1 

, EXTN 

ADV1 

.EXTN 

ATM1 

.EXTN 

BRG1 

.EXTN 

BD!-'l 

.EXTN 

BT.M1 

.EXTN 

CRG1 

.EXTN 

CDV1 

.EXTN 

CTM1 

.EXTN 

FF  LD 

.EXTN 

FFAD 

.EXTN 

FFSB 

.EXTN 

FFML 

00000 '0544 ?5  FQ2; 

5TPi 

3.RETRN  .' SAVE  RE  $R N ADR, 

00001- mm 

IDA 

2,0.3  .'GET  DATA  TB,  ADR. 

00002 '021030 

LDA 

0,30,2  .'RAY  DIRECTION 

S0003 ' 040504 

STA 

0, DIRMD 

00004 '102400 

iUB 

0,0  .'ZERO  IN  AC0 

00005 '02446? 

lda 

1. ZERO  .'FLOATING  ZERO  EXPONENT 

00006 ' 0444  70 

STA 

1,  TRGl  .'INITIALIZE  TOTAL  HQR.  RANGE 

0000? '0404 70 

STA 

0,  T.RG2 

00010 '0404 ?0 

STA 

0, TRG3 

00011 '044470 

STA 

1,  ID VI  .'INITIALIZE  TOTAL  DERlVftTIOVE 

00012 ' 040470 

STA 

0. TDV2 

0001 3 '0404 ?0 

STA 

0, TDV3 

00014 '044470 

STA 

1.TT.M1  ; INITIALIZE  TOTAL  TIME  DELAY 

00015 '040470 

STA 

0. TTM2 

0001 6 '0404 70 

STA 

0. TTM3 

00017 '021032 

LDA 

0,32, 2,' GET  NO.  OF  HALF  CvCLES 

00020 '0504 70 

STA 

2, DATAD 

00021 '111000 

MOV 

0,2  .'SAVE  NO,  OF  HALF  CYCLES 

00022 '101 400 

INC 

0.0  .'NO.  PLUS  ONE 

00023 '040473 

STA 

0, DIRPT  .'STORE  NO,  OF  HAL F CYC.  + 1 

00024 '126400 

SUB 

1,1  ; ZERO  IN  PCI 

00025' 101213 

MQV'Rf 

0, 3. SNC  i SKIP  IF  NO.  OF  HALF  CYC.  EVEN 

00026 '125400 

INC 

1,1  .'ONE  IN  ACl 

00027 '044466 

STA 

l.EOTST  rEVEN  - ODD  TEST  FLAG 

00030 '02045? 

LDft 

0, DIRMD; STORE  RAY  DIRECTION 

00031 '040463 

STA 

0..UPDNR  : STORE  RAY  DIRECTION 

00032 '101005 

MOV 

0,0, SNR  .'SKIP  IF  RAY  DIRECTION  DOWN 

00033 ' 000402 

JMP 

E.NTR1  .'DO  UP  RAY  AT  SONDBUQ V 

00034 ‘ 000405 

JMP 

ENTR2  .'DO  DOWN  RAY  AT  SONOEUOY 

00035 '151400  ENTftl; 

INC 

2,2  ; INCREMENT  NO,  OF  HALF  CYC. 

00036 '125005 

MOV 

1,1, SNR  .'SKIP  IF  EOTST  IS  ONE 

00037' 151400 

INC 

2,2  INCREMENT  NO,  OF  hAl F CYCLES 

00040 ' 000403 

JMP 

ENTR3  ,' FLOAT  NO.  OF  HALF  CYCLES 

00041 '125004  E NTR2; 

MOV 

1,1, 5ZR  .'SKIP  IF  EOTST  IS  ZERO 

00042 '151400 

INC 

2.2  .'INCREMENT  NO.  OF  HALF  CYCLES 

00043 '050447  ENTR3; 

STA 

2.N0CYL  .'STORE  NO,  OF  HALF  CYCLES 

00044 ' 00644  7 

JSR 

fi.FFLD  .'FLOAT  NO.  OF  HALF  CYCLES 

00045 '000111' 

NOCY.H 

.'ADR,  of  altered  no,  of  half  cyc 
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0002  FQ2 


00046 '000000 

0 

;B0  DOUBLE  PRECISION 

0004 7 '000233' 

N0M.C1 

.'ADR,  OF  FLOATING  FT.  RESULT 

00050 '102520 

SUBZL 

0,0 

.'ONE  IN  AC0 

00051 '004446 

JSR 

CMSUM 

.'ASSEMBLE  TOTAL  HOP.  RANGE 

00052 '177777 

AR  61 

.'ADR,  OF  A HOR,  RANGE 

00053 '177777 

ERG1 

.'ADR.  OF  B HOR,  RANGE 

00054 '1 7777? 

CRGl 

.'ADR.  OF  HALF  CYC.  HO R.  RANGE 

00055 '000076' 

TRGl 

.'ADR,  Of  TOTAL  HOR.  RANGE 

00056 '102400 

SUB 

0.0 

.'ZERO  IN  AC0 

0005  ?' 004440 

JSR 

CMSUM 

.'ASSEMBLE  TOTAL  DERIVATIVE 

00060 '177777 

A DV1 

.'ADR.  OF  A DERIVATIVE 

00061 '177777 

BDV1 

.'ADR-  OF  B DERIVATIVE 

00062 '177777 

CDV'l 

.'ADR.  OF  HALF  CYC.  DERIVATIVE 

00063 '000101 ' 

TDV'l 

.'ADR.  OF  TOTAL  DERIVATIVE 

00054 ' 102400 

SUB 

0.0 

.'ZERO  IN  DERIVATIVE 

00065 '004 4 ;j£ 

JSR 

CMSUM 

.'ASSEMBLE  TOTAL  TIME  DELAY 

00066 '177777 

flTMl 

.'ADR,  OF  A TIME  DELAY 

00067 '177777 

BT.M1 

.'ADR.  OF  B TIME  DELAY 

00070 '1777?? 

CT.M1 

.'ADR.  OF  HALF  CYC.  TIME  DELAY 

00071 ' 000104 ' 

TTM1 

.'ADR.  OF  TOTAL  TIME  DELAY 

000  72 ' 054403 

IDA 

3, RETRN 

.'GET  RETURN  ADR. 

00073 '001401 

JMP 

1.3 

: RETURN 

00074-04 0000  0ERO; 

040000 

00075 '000000  RETRN: 

0 

00076 '000000  TRS1: 

0 

00077 '000000  TRG2: 

0 

00100 '000000  TRG3: 

0 

00101 '000000  ID'.-'l : 

0 

00102 '000000  TDV'2: 

0 

00103 ' 000000  TD  v'3 : 

0 

00104 '000000  TTM1: 

0 

00105 '000000  TJMP; 

0 

00106 '000000  TIMS'- 

0 

00107-000000  DIRMDr 

0 

001 10 '000000  DR TAD; 

0 

001 11 '000000  NQCVH; 

0 

001 12 '000000  NOCV'L: 

0 

00113'1777?7  .FELD; 

ffld 

00114' 000000  IJPDNR : 

0 

00115'000000  EQT5T; 

0 

00116'000000  DIRPT: 

0 

00117'054507  CMSUM; 

STA 

3. RETUN 

; SAVE  RETURN  ADR. 

00120'040507 

STA 

0, TE5TW 

STORE  TEST  ADR. 

00121'021400 

IDA 

0. 0. 3 

.'GET  A ADR. 

00122-040435 

STA 

0.  API 

.'STORE  A ADR. 

00123 '040441 

STA 

0.  AP2 

00124 '021401 

LDA 

1 > 

.'GET  B ADR. 

00125 '040460 

STA 

0.BP1 

,'ST.RE  B ADR. 

00126 ' 0404 64 

STA 

0.  BP2 

00127-04051? 

STA 

0,  BP3 

001 30 ' 040523 

STA 

0,  BP4 

00131 '021402 

LDA 

0.2.3 

.'GET  C ADR. 

001 32 '040464 

STA 

0.CP1 

.'STORE  C ADR. 

001 33 '021403 

LDA 

0. 3, 3 

.'GET  TOTAL  ADR, 

00134'040422 

STA 

0,  TP1 

00135 '040423 

STA 

0,  TP2 

00136 '040425 

STA 

0.  TP3 

00137 '040426 

STA 

0.  TP4 

00140'040444 

STA 

0.TP5 
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00141*040445 

SIR 

0,  TP6 

001 42 '040447 

STA 

0.  TP? 

00143 '040450 

STA 

0.  TPS 

00144 '040455 

STA 

0.  TP9 

00145'040456 

STA 

0,  TP  10 

00146 '040477 

STA 

0.  TP 11 

0014? '040500 

STA 

0,  TPi? 

00150'040502 

STA 

0.  TPI 3 

00151 '040503 

STA 

0.  TP14 

00152 '030742 

LDA 

2, UPDNR 

.'GET  UP-D.N,  FLAG 

00153'151005 

MOV 

2. 2, SNR 

.'SKIP  IF  FLAG  ZERO 

00154 '000406 

JMP 

ENTR4 

.'JUMP  AROUND  FP AD 

00155'006454 

JSR 

g.FADD 

.'TOTAL  PLUS  A 

00156-000000  T Pi; 

0 

.'ADR,  OF  TOTAL 

001 5? "000000  API; 

0 

.'ADR,  OF  A 

00160-000000  TP 2; 

0 

.'ADR,  OF  TOTAL 

00161 -000405 

J HP 

ENTR5 

.'JUMP  AROUND  FpSB 

00162 '006450  E.NTP4; 

JSR 

e.FSUB 

.'TOTAL  MINUS  A 

00163 '000000  TP3: 

0 

.'ADR,  OF  TOTAL 

00164-000000  AP2; 

0 

.'ADR,  OF  A 

00165 "000000  TP4; 

0 

.'ADR,  OF  TOTAL 

00166 '034730  FNTP5; 

LDA 

3.DIRPT 

.'GET  NO,  OF  M ALF  C'V'C,  + 1 

00167'175005 

MOV 

3, 3,  SNR 

.'SKIP  IF  RAY  IS  NOT  - 1 

00170-000451 

JM° 

DQDFH 

.'DO  - 1 RAY  TYPE 

00171 '030723 

LDA 

2. UPDNR 

.'GET  UP-DN.  FLAG 

001?2'034?23 

LDA 

3 .EOTST 

.'GET  EVEN-ODD  TEST  FLAG 

001?3'151005 

MOV 

2,  2, SNR 

.'SKIP  IF  RAY  DOWN 

001 74 '000402 

JMP 

FNTR6 

.'DO  UP  RAY 

001 ?5 -000404 

JMP 

ENTR? 

.'DO  DOWN  RAV 

001 ?b -175004  [NT&S; 

MOV 

3, 3,  SZR 

.'SKIP  IF  RAY  EVEN 

00177-000404 

JMP 

E.NTR8 

.'DO  ODD  RAY 

002 00-000410 

JMP 

FNT10 

.'DO  EVEN  RAY 

00201' 175004  ENTR7; 

MOV 

3,3,  SZR 

.'SKIP  IF  RAY  EVEN 

00202-000406 

JMP 

ENT10 

;DQ  ODD  RAV 

00203'006426  ENTR8: 

JSR 

fi.FADD 

.'TOTAL  PLUS  B 

00204 '600000  TP5; 

0 

.'ADR.  OF  TOTAL 

00205 '000000  BPl ; 

0 

.‘ADR,  OF  B 

00206-000000  TP6; 

0 

.'ADR,  OF  TOTAL 

00207  ‘000405 

JMP 

ENTR 9 

.'JUMP  AROUND  FpSB 

00210-006422  ENT10; 

JSR 

8. FSUE 

.'TOTAL  MINUS  B 

00211-000000  TP7; 

0 

,'ADR,  OF  TOTAL 

00212-000000  BP2; 

0 

.'ADR,  OF  B 

00213-000000  TPS; 

0 

.'ADR,  OF  TOTAL 

00214-006414  ENTR9; 

JSR 

g.FMUL 

.'ALTERED  NO.  OF  HALF  CYC,  i C 

00215-000233' 

NOMC1 

; ADR,  OF  ALTERED  NO.  OF  HALF  CYC. 

00216-000000  CPI; 

0 

,'ADR.  OF  C 

00217-000236' 

TEMA1 

.'ADR,  OF  RESULT 

00220-006411 

JSR 

i.F ADD 

.'  TOTAL  PLUS  SUM  OF  C PARTS 

0022 1 '000000  TP9; 

0 

,'ADR.  OF  TOTAL 

00222'000236' 

T^MA  1 

.'ADR.  OF  SUM  OF  C PARTS 

00223'000000  TP10; 

0 

,'ADR,  OF  TOTAL 

00224-0 34402  ENBRR; 

LDA 

3. RETUN 

.'GET  RETURN  ADR, 

00225-001404 

JMP 

4. 3 

; RETURN 

00226-000000  RETUN; 

0 

00227'000000  TE5TW; 

0 

00230-177777  .FMI/L; 

FF  ML 

00231 '177777  .F ADD; 

FFAD 

00232 '177???  .fSUE; 

FFSB 

00233 ' 000000  NQMCl ; 

0 
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00234 ' 000000 

NQMC2: 

0 

00235 ' 000000 

NOMCS; 

0 

00236 '000000 

TEMAl ; 

0 

0023? '000000 

TEMA2; 

0 

00240 ' 000000 

TEMA3; 

0 

00241 '034653 

D0DP.H; 

LDA 

3,  UPDNR 

IGET  UP-DN.  FLAG 

00242 'i?5005 

MOV 

3, 3,  SNR’ 

r SKIP  IF  RAY  DOWN 

00243 ' 000406 

JMP 

ENT  11 

:DO  UP  RAY 

00244 '006766 

JSR 

S.FSUB 

; TOTAL  MINUS  B 

00245 '000000 

TPlls 

0 

.-ADR,  or  TOTAL 

002 46 '000000 

BPS; 

0 

; ADR , OF  B 

0024 7 '000000 

TF12: 

0 

;ADR.  OF  TOTAL 

00250 ' 000405 

JMP 

ENT  12 

I JUMP  AROUND  FPAD 

0025 1 '006760 

[NTH: 

JSR 

g,F  ADD 

.'TOTAL  PLUS  B 

00252 '000000 

TFT3; 

0 

; ADR . OF  TOTAL 

00253 '0S00S0 

BP4: 

0 

.'ADR,  OF  B 

00254 ' 000000 

TP  14: 

0 

.'ADR.  OF  TOTAL 

00255 '030752 

£>|Tl2; 

LDA 

2, TE5TW 

1 GET  TEST  FLAG 

00256 '151004 

MOV 

2, 2.  SIR 

.'DO  DERIV.  OR  TIME  DELAY 

0025? '000402 

JMP 

ENT  13 

i DO  TOTAL  HOR,  RANGE 

00260 '000421 

JMP 

ENT14 

» JUMP  AROUND  TOT.  HOR.  PNG 

00261 ' 152400 

ENT 13; 

SUB 

2,2 

; ZERO  IN  AC2 

00262 '034772 

LDA 

3,  TF14 

.'GET  ADR.  OF  TOT.  HOR,  RNG 

00263 '021401 

LDA 

0.1,3 

.'GET  TOTAL  HOR,  RNG, 

00264 '101113 

MQVLt 

0, 0. 3.NC 

.'SKIP  IF  NEGATIVE 

00265 '000412 

JMP 

ENT15 

.'JUMP  AROUND  NEGATE 

00266 '034766 

ENT16; 

LDh 

3,  TF14 

.'GET  ADR,  OF  TOTAL 

0026 ? '021401 

LDP 

0, 1,3 

.'GET  TOTAL 

0027S '025402 

LDA 

1,2,3 

00271 '124404 

NED 

1.1. S2R 

.'NEGATE  TOTAL 

00272' 100001 

COM 

0, 0,  SK-P 

00273 ' 100400 

NEC 

0,0 

00274 '041401 

STA 

0.1,3 

.'STORE  TOTAL 

002?5 '045402 

3TA 

1,2,3 

00276 '152520 

5UBZL 

2,2 

.'ONE  IN  AC2 

00277 '050406 

ENT15? 

STA 

2. NEGFG 

.'STORE  NEGATE  FLAG 

00300 '000724 

JMP 

END  PR 

; JMP  TO  END 

00301 '014404 

ENT14; 

DSZ 

NEGFG 

X SKIP  IF  NEGATE  FLAG  ONE 

00302 '000722 

JMP 

ENDRR 

; JMP  TO  END 

00303 '000763 

JMP 

ENT16 

; NEGATE  results 

00304 ' 000000 

DUDEC: 

0 

00305 ' 000000 

NEGFG: 

0 

.END 

I 


i 
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CPGN  SUBROUTINE 


1.  The  CPGN  subroutine  computes  the  propagation  voltage  gain  and 
angle  of  arrival  of  a ray  path  at  the  sonobuoy.  A bottom  loss 
function  is  also  included  in  the  gain  calculation. 

2.  NR1A2 

3.  JSR@  .CPGN 
BG.  AT 


.CPGN:  CPGN 

4.  FPMP 

5.  LYVEL,  TRC-1 , PDV1,  HRRH1 , SVLA,  TGSQ1 , SNSQ1,  NUMCY,  and  ZVAL1 

6.  GAIN1 , ANAR1,  and  BTAN1 

7.  See  Figure  Cl6 * 

8.  See  Listing  Cl6„ 

9.  a)  The  sine  of  the  angle  of  arrival  of  the  ray  path  at  the 

sonobuoy  is  computed  instead  of  the  angle  itself.  This  is 
also  true  for  the  angle  that  the  ray  path  makes  with  the 
bottom.  Also  all  angles  are  measured  from  the  vertical  axis, 
b)  The  bottom  loss  function  is  computed  using  the  following 
algorithm. 
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angle  ray  makes  with  the  bottom 


measured  from  the  vertical 


This  computation  yields  a -10  dB  loss  at  an  angle  of  0 degrees  and 


no  loss  at  90  degrees.  The  total  propagation  loss  is  then  computed 


as  follows 


GAIN1 


GAIN1  = Total  propagation  gain 


Propagation  gain  due  to  the  ray  trace 


Bottom  loss 


Number  of  bottom  bounces 


c)  The  sine  of  the  angle  that  the  ray  makes  with  the  vertical  at 


any  point  along  the  ray  is  simply  equal  to  the  sound  velocity 


at  the  point  divided  by  the  value  of  z for  the  ray 


0001  CPGN 
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,NREL 
, TJTL 

CPGN  : 9/15/73 

000010 

. RDX 

n 

.ENT 

CPGN 

.ENT 

6AIN1 

.ENT 

PNPR1 

.ENT 

BTAN1 

.EXT  N 

TRG1 

.EXT  N 

FDV'l 

.EXTN 

LYVEL 

.EXTN 

rrso 

.EXTN 

EES  B 

.EXTN 

EESR 

.EXTN 

FFML 

.EXTN 

FFDV 

.EXTN 

EEAD 

.EXTN 

EELD 

00000*05*552  CPGN: 

ST  Pi 

3.RETRN  .' SAVE  RETURN  ADR. 

00001*031*00 

IDA 

2.0.3 

00002  * 020552 

IDA 

0. I NCI 

00003*1*3000 

ADD 

2.0 

0000**0*0*20 

ST  Pi 

0. ZAD1 

00005*0*0**1 

3TA 

0. ZAD2 

00006*0*0500 

3TA 

0.ZAD3 

00007*0*050? 

ST  A 

0. ZAD5 

00010*0205*5 

EDA 

0. INC2 

00011 '1*3000 

ADD 

2.0 

00012*0*0*16 

3TA 

0.  TGAD1 

00013*0*0*52 

3TA 

0. TGAD2 

0001**0205*2 

LDA 

0. INC3 

00015*1*3000 

ADD 

2.0 

00016*0*0*67 

3TA 

0.  TGAD3 

0001 7*0205*0 

LDA 

0. INCA 

00020*1*3000 

ADD 

2.0 

00021*0*0*13 

STA 

0. SNADl 

00022*050551 

3TA 

2. DATAD 

00023 '006535 

JSR 

e.FSQR  :Z  * 2 

0002**000000  ZAD1 ; 

0 

.'ADR.  OF  Z 

00025 '000166' 

TEMA1 

.'ADR.  OE  RESULT 

00026 '006533 

JSR 

g.ESUB  ,'ZaE  - VT  a 2 

00027  * 000166* 

TEMPI 

.'ADR.  OE  RESULT 

00030*000000  TGAD1; 

0 

.'ADR,  OE  VTa2 

00031*00017 1* 

TEMB1 

.'ADR,  OE  RESULT 

00032 '006527 

JSR 

g.ESUB  ;Za2  - V5a2 

00033*000166' 

TEMPI 

.'ADR,  OE  Za? 

0003**000000  SNADl : 

0 

.'ADR.  OE  VSa2 

00035*00017*' 

TEMC1 

: ADR.  OE  RESULT 

00036 '00652* 

JSR 

g.ESGT  ;S0RTTZa2-VTa2I 

00037 '0001 71' 

TEMBl 

.'ADR.  OE  Za2-V'Ta2 

000*0*000171* 

TE.MS1 

.'ADR.  OE  RESULT 

000*1 '006521 

JSR 

g.ESGT  .'  SORT  IZa£-VSa2 

000*2*00017** 

TEMC1 

.'ADR.  OE  Za2-VSa2 

000*3*00017*' 

TEMC1 

.'ADR,  OE  RESULT 

000***006517 

JSR 

g.EMUL  IHOR.  RNG,  $ Z 

000*5*177777 

TRG1 

.'ADR.  OE  HOR.  RANGE 

000*6*600000  ZAD2; 

0 

.'ADR,  OE  Z 

000*7*000166' 

TEMPI 

.'ADR.  OE  RESULT 

00050 '006513 

JSR 

g.EMUL  .'ABOVE  $ DERIVATIVE 

LISTING  C16 
C-1-U8 


*D“A033  678  NAVAL  SURFACE  WEAPONS  CENTER  WHITE  OAK  LAB  SILVER  SP— ETC  F/G  9/? 
REAL  TIME  THREE  LAYER  OCEAN  MODEL. (U) 

APR  76  P J CRAUN 

UNCLASSIFIED  NSWC/WOL/TR-75-115 


3 3 

4i?03367B 


0002  CPGN 
00051 '000166' 

00052 '177777 
00053 '000166' 

00054 ' 006507 
00055 '000166' 

00056 '0001 71' 

0005? '000166' 

00060 '006503 
00061' 000166' 

00062 '0001 74' 

00063 '000166' 

00064 '006500 
00065 '000000  T6AD2; 
00066 '000166' 

00067 '000166' 

00070 '020477 
00071 '101113 
00072 '000407 
00073 '024475 
00074 '124405 
00075 '100401 
00076 '100000 
00077 '040470 
00100 '044470 
00101 '006461  ARNDl : 
00102 '000166' 

00103 '000200' 

00104 '006460 
00105 '000000  TG AD3; 
001 06 '000000  ZAD3: 
00107 '000203' 

001 10 '030455 
00111 '020466 
001 12 '113000 
00113 '050402 
001 14 '006450 
001 15 '000000  BTVLA; 
001 16 '000000  ZAD5: 
001 17 '000207' 

00120 '034433 
00121 '025427 
00122 '125220 
00123 '125220 
00124 '125005 
00125 '000423 
00126 '021432 
00127'101112 
00130 '000420 
00131 '025430 
00132 '152400 
00133 '125005 
00134 '151400 
001 35 '145000 
00136' 101213 
001 37 '000404 
00140 '10 1400  ODNO: 
00141 '101220 
00142 '000403 
00143 '101220  D/NO: 


TEMAl 

FDV1 

TEMAl 

JSR 

TEMAl 

TEMB1 

TEMAl 

JSR 

TEMAl 

TEMC1 

TEMPI 

JSR 

0 

TEMAl 

TEMPI 

LDA 

MOVL# 

JMF 

LDA 

NEC 

NEC 

COM 

STA 

STA 

JSR 

TEMPI 

GAIN1 

JSR 

0 

0 

ANAR1 

LDA 

LDA 

ADD 

STA 

JSR 

0 
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.'ADR.  Of  RESULT 
.'ADR.  Of  DERIV. 

.'ADR.  Of  RESULT 

e.fMUL  .'ABOVE  f SGRT(Z*2-VU2) 
rADR.  Of  RESULT 
.'ADR.  Of  SORT  1Za2-VTa2J 
;ADR.  Of  RESULT 

e.fMUL  .'ABOVE  ? SORT  (Za2-VSa2) 

.'ADR.  Of  RESULT 
.‘ADR.  Of  SORT  (Za2-VSa21 
.'ADR.  Of  RESULT 
§.FDIV  .'VTa2/AB  OV£ 

.'ADR.  Of  VTa2 

;ADR.  Of  RESULT 
.'ADR.  Of  RESULT 

0.TEMA2  .'GET  RESULT 

0. 0. 5NC  .'SKIP  If  RESULT  NEG. 

ARNDl  .'JUMP  AROUND 

1. TEMA3  .'NEGATE 
1.1. SNR 

0. 0. SKP 

0.0 

0.  TEMA2 

1. TEMA3 

e ,fSQT  JSQRT  (ABOVE) 

.'ADR.  Of  POWER  GAIN 
.'ADR.  Of  VOLTAGE  GAIN 
G.fDlV  .'VT/Z 
rADR,  Of  TG.  SND.  VEL. 

.'ADR.  Of  2 

.‘ADR.  Of  SINE  ANG.  AT  TG. 

2.  .LYV'L  .'GET  ADR,  Of  LY,  SND.  VEL,  TB. 
0.INCRM  :BDT ■ LY.  VEL.  INCREMENT 

0.2 

2.BTVLA  .'BOT,  LY.  VEL.  ADR. 
e.FDIV  .'V  BOT./Z 


0 

BTAN1 

LDA  3.  DA  TAD  .'DATA  TB.  ADR. 

LDA  1.27.3  .'BOT.  LY.  NO, 

MOVZR  1.1 

MQVZR  1.1 

MOV  1.1.  SNR 

JMF  FNGNC  .'END  UP 

LDA  0.32.3  .'NO.  Of  HALF  CYC. 

MOVL#  0.0. SZC  .'SKIP  If  NOT  -1 

JMP  FNGNC 

LDA  1.30.3 

SUB  2.2 

MOV  1.1.  SNR 

INC  2.2 

MOV  2. 1 

MOVR#  0. 0. SNC 

JMP  EVNO 

INC  0.0  .'NO,  +1 

MOVZR  0.0  .'(NO.  +1.V2 

JMP  ARND2 

MOVZR  0.0 


LISTING  Cl6  (Continued) 
C-149 


0003  CPGN 
00144'  123000 
00145 '040441 
00146 '101004 
00147 '004445 
001 50 '034402 
00151 '001401 
00152 '000000 
00153 '000000 
001 54 '000023 
00155 '000015 
00156 '000007 
00157 '000012 
00160 '177777 
00161 '177777 
00162 '177777 
00163 '177777 
00164 '17777? 
00165 '177777 
00166 '000000 
00167'000000 
001 70 '000000 
00171 '000000 
00172 '000000 
001 73 '000000 
001 74 '000000 
001 75 '000000 
001 76 '000000 
001 7? '000011 
00200 ' 000000 
00201 '000000 
00202 '000000 
00203 ' 000000 
00204 '000000 
00205 '000000 
00206 '000000 
00207 '000000 
00210 '000000 
00211 '000000 
00212 '177777 
00213 '177777 
00214 '054447 
00215 '006743 
0021 6 '000207' 
0021 7 '00026 7' 
00220 '006743 
00221 '000267' 
00222 '000275' 
00223 '000267' 
00224 '006766 
00225 '000267' 
00226 '000272' 
00227 '000267' 
00230 '024450 
00231 '044453 
00232 '024447 
00233 '044432 
00234 '024446 
00235 '044431 
00236 '020750 


ARND2: 


FNGNC: 


RETRN: 

DATAD; 

INCl; 

I.NC2: 

INC3: 

I.NC4: 

,F5GR: 

.F5UB: 

.FSfiT: 

.FMUL: 

.FD1V: 

.LYVL: 

TEMA1 ; 

TEMA2; 

TEMA3; 

TEMB1; 


BL  OOP: 


ADD 

STA 

MOV 

JSR 

LDA 

JMP 

0 

0 

23 

15 

7 

12 

FFSG 

FFSB 

FFSR 

FFML 

FFDV 

LWEL 

0 

0 


TEMC1: 


I NORM: 
GAIN1: 


ANAR1;  0 


NOBTLi 

B7AN1; 


,F ADD; 
.FFLD: 
ADBTL: 
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1.0 

0.NOBTL 
0.0.  S2R 
ADBTL 
3.  RETRN 
1,3 


STA 

3. RETUN  .'SAVE  RETURN  ADR. 

JSR 

BTAN1 

TEMD1 

g.FSGR 

JSR 

TEMD1 

BCNS1 

TEMD1 

6, FMUL 

JSR 

TEMD1 

ACNS1 

TEMD1 

e.FADD 

LDA 

l.ZEROl 

STA 

1.  TEME1 

LDA 

1.2ERD2 

STA 

1.  TEME2 

LDA 

1.2ER03 

STA 

1.  TEME3 

LDA 

0. NOBTL 
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00237' 101223 

MOVZR 

0.0. SNC 

00240' 000405 

JMP 

ARND5 

00241 '006722 

JSR 

e.EMUL 

00242'000267' 

TEMD1 

00243 '000264' 

TEME1 

00244 '000264' 

TE.ME1 

00245 '020741  ARND5; 

LDA 

0.NOBTL 

00246'101225 

MOVZR 

0.0,  SNR 

00247 '000406 

JMP 

ARND4 

00250 '040736 

STA 

0.NOBTL 

00251 '006707 

JSR 

e.ESQR 

00252 '000267' 

TEMD1 

00253 '000267' 

TEMD1 

00254 '000762 

JMP 

BL  OOP 

00255*006706  ARND4; 

JSR 

e.EMUL 

0025b'000264' 

TEME1 

00257 '000200' 

6AIN1 

00260 '000200' 

6AIN1 

00261 '034402  ENDBL; 

L DA 

3. RETUN 

00262 '001 400 

JMP 

0. 3 

00263-000000  RETUN; 

0 

00264 '000000  TEME1; 

0 

00265'000000  TEME2; 

0 

00266 '000000  TEME3; 

0 

00267 '000000  TEMD1: 

0 

00270-000000 

0 

00271'000000 

0 

002 72'037777  ACNS1; 

037777 

.'.3162 

00273'050400 

050400 

0027 4'000000 

000000 

00275 '040000  BCNS1; 

040000 

.'.6836 

00276'053577 

053577 

002 77'177777 

177777 

00300-040000  ZER01 : 

040000 

00301-077777  ZER02; 

077777 

00302'177777  ZEROS; 

177777 
,E  ND 
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SORT  SUBROUTINE 

1.  The  SORT  subroutine  places  ray  path  solutions  into  TSIBS  based 
on  the  propagation  gain  of  the  ray.  Only  a set  number  of  solutions 
are  stored  in  the  table  and  are  ordered  by  decreasing  gain.  Each 
time  the  subroutine  is  called  it  places  the  present  solution  in 
its  proper  place,  by  gain,  in  the  table  and  reorders  the  table. 

2.  NR1A2 

3.  JSR@  .SORT 
BGDAT 
TSNIB 
TSIBS 

(ADDRESS  OF  RAY  PATH’S  z LIMITS  IN  A1ZL) 


.SORT:  SORT 

4.  FPMP 

5.  TSNIB,  TSIBS,  GAIN1 , CODEW,  TTM1 , ANAR1 , TRG1,  ZVAL1,  and 
ADDRESS  OF  ZMAX1 

6.  TSNIB  and  TSIBS 


7.  See  Figure  C17, 


8.  See  Listing  C17. 

9.  The  number  of  largest  gain  solutions  stored  in  TSIBS  is  variable 
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(ENTftg) 


CODEH  = > TSIBSU7*N) 

TTM1  =>  TS1BS((17*H)+1) 

GAIN1  =>  TSIBSU17*N)H) 

ANARl  =>  TSlBS((l7*N)t7) 

TRG1  =>  TSIBSU  17SM*10 
ZVAL1  =>  TSIBS((l7*N)fl3) 

ADDRESS  OF  ZMAX1  =>  TSIBS((l7*N)+16i 


Q+l  =>  Q 


YES , 


FIG.  Cl 7 (CONTINUED) 
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I 


' 


i 

i 


1 ■ 1 1 1 ■ — 

0001  SORT 


{■PPM 


.NREL 

.7771 

SORT 

; 03/1 3/74 

000010 

.RDX 

8 

.ENT 

SORT 

.ENT 

MXNO 

.EXT N 

6AIN1 

.EXTN 

TTM1 

.EXTN 

ANAR1 

.EXTN 

TR61 

.EXTN 

EFS  B 

00000 '05454 7 SORT: 

STA 

3.RETRN 

.'SAVE  RETURN  ADR. 

00001' 031400 

LDA 

2.0.3 

00002 '050571 

STA 

2.DATAD 

00003 '021022 

LDA 

0.22.2 

00004 '040561 

STA 

0. CODER 

00005 '021401 

LDA 

0. 1.3 

00006 '040542 

STA 

0.NIBSA 

00007 '021 402 

LDA 

0.2.3 

00010 '040543 

STA 

0. . IBST 

00011 '021403 

LDA 

0.3.3 

0001 2 '040560 

STA 

0.  .ZMXA 

00013 '022535 

LDA 

60. NIBSA; GET  NO.  OF  INT.  BASIC  SOL. 

00014 '040535 

STA 

0.NIBS 

000 15 '040535 

STA 

0.CNTR1 

00016 '030535 

LDA 

2.  .IBST 

;GET  ADR.  OF  INT.  BASIC  SOL.  TB. 

0001 7 '050535 

STA 

2.PNTR1 

00020' 101005 

MOV 

0.0.  SNR 

.‘SKIP  IF  NO.  IS  NON  ZERO 

00021 '000446 

JMP 

ENTR2 

00022 '020533  LOOPS: 

LDA 

0.  INCR1 

;GET  ADR,  INCREM.  TO  GAIN 

00023'113000 

ADD 

0.2 

;SET  GAIN  ADR. 

00024 '050402 

STA 

2.ADRGN 

00025 '006531 

JSR 

6.FSUB 

.'GAIN  FROM  TB.  - SOL.  GAIN 

00026 '000000  ADRGN: 

0 

.‘ADR.  OF  GAIN  FROM  I.B.S.TB. 

me?' 177777 

6AIN1 

;ADR.  OF  SOLUTION  GAIN 

00030 '000157' 

TEMA1 

:ADR.  OF  RESULT 

00031 '020527 

LDA 

0.  TEMA2 

.‘GET  RESULT 

00032 '101 103 

MGVL 

0. 0.  SNC 

.'SKIP  IF  SOL.  GAIN  > TB.  GAIN 

00033 '000426 

JMP 

ENTR1 

; COMPARE  NEXT  GAIN  FROM  TB. 

00034 '030516 

LDA 

2.CNTR1 

;6ET  NO.  OF  INT.  BASIC  SOL. 

00035 '024525 

LDA 

1. INCR2 

.'GET  DATA  BLOCK  INCREMENT 

00036 '044525 

STA 

1.CNTR2 

00037'0205l5 

LDA 

0.PNTR1 

.-GET  ADR.  OF  INT.  BASIC  SOL.  TB. 

00040 '073301 

MUL 

;ADR.  OF  LAST  DATA  BLOCK  t 1 

00041 '044523 

STA 

1.PNTR2 

00042 '131000 

MOV 

1.2 

00043 '021 357  L00P1: 

LDA 

0.  -21.2 

.'GET  DATA  BLOCK 

00044 '041000 

STA 

0.0.2 

.'MOVE  IT  ONE  BLOCK  DOWN 

00045 '151400 

INC 

2.2 

00046 '014515 

DS2 

CNTR2 

.•SKIP  WHEN  BLOCK  IS  MOVED 

00047 '000774 

JMP 

LGGPi 

: MOVE  NEXT  HORD  IN  BLOCK 

00050 '014502 

DSZ 

CNTR1 

.•SKIP  IF  THIS  HRS  LAST  BLOCK 

00051 '000402 

JMP 

.+2 

.'SET  UP  NEXT  BLOCK  TRAN FER 

00052 '000415 

JMP 

ENTR2 

; STORE  NEW  SOLUTION  IN  TB. 

00053 '020507 

LDA 

0. INCR2 

:GET  DATA  BLOCK  INCREMENT 

00054 '040507 

STA 

0. CNTR2 

00055 '030507 

LDA 

2.PNTR2 

.'GET  I.B.S.TB.  ADR.  POINTER 

00056 '112400 

SUB 

0.2 

;ADR.  - BLOCK  LENGTH 

00057 '050505 

STA 

2.PNTR2 

;ADR.  OF  NHERE  TO  MOVE  NEXT  BLOCK 
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00060 '000763 

JMP 

LOOP1  .'MOVE  NEXT  BLOCK 

00061 '030473  ENTRl: 

LDA 

2.PNTR1  .'GET  ADR.  OF  INT.  BASIC  SOL.  TB. 

00062 '020500 

LDA 

0.INCR2  ;6ET  DATA  BLOCK  INCREMENT 

00063' 113000 

ADD 

0.2  :5E T UP  NEXT  ADR. 

00064 '050470 

STA 

2.PNTR1 

00065 '0m65 

DS2 

CNTRl  ; SKIP  IF  ALL  SOL.'S  WERE  CHECKED 

00066 '000734 

JMP 

L00P2  ; COMPARE  NEXT  GAIN 

00067'030465  ENTR2: 

LDA 

2.PNTR1  ;G£T  ADR.  OF  INT.  BASIC  SOL.  TB. 

00070 '0204 75 

LDA 

0. CODEH: GET  SOL.  CODE  WORD 

00071 '041000 

STA 

0.0.2  : STORE  IN  TB. 

00072 '03m 

LDA 

3. , TTM1  .'GET  ADR.  OF  SOL.  TM.  DV. 

00073 '021400 

LDA 

0.0.3  .'GET  SOL.  TM.  DY. 

00074 '041001 

STA 

0.1.2  .'STORE  IN  TB. 

00075 '021401 

LDA 

0.1.3 

00076 '041002 

STA 

0.2.2 

00077' 021402 

LDA 

0.2.3 

00100'041003 

STA 

0.3.2 

00101 '034466 

LDA 

3. .GAIN  ;GET  ADR.  OF  SOL  GAIN 

00102 '021400 

LDA 

0.0.3  .'GET  SOL.  GAIN 

00103 '041004 

STA 

0.4.2  .'STORE  IN  TB. 

00104 '021401 

LDA 

0.1.3 

00105 '041005 

STA 

0.5.2 

00106 '021402 

LDA 

0.2.3 

00107 '041006 

STA 

0.6.2 

001 10 '034460 

LDA 

3. .ANAR  ;G£T  ADR.  OF  SOL.  ANG.  OF  ARR. 

00111 '021400 

LDA 

0.0.3  .'GET  SOL.  ANG.  OF  ARR 

00112 '041007 

STA 

0.7.2  ; STORE  IN  TB. 

001 13 '021401 

LDA 

0,1.3 

00114'04 1010 

STA 

0.10.2 

001 15 '021402 

LDA 

0.2.3 

00116 '041011 

STA 

0.11.2 

001 17 '034452 

LDA 

3. . TR61  ;GET  ADR.  OF  SOL.  NOR,  RNG. 

00120 '021 400 

LDA 

0.0.3  .'GET  SOL.  HOR.  RNG. 

00121 '041012 

STA 

0.12.2  : STORE  IN  TB. 

00122 '021401 

LDA 

0. 1. 3 

00123 '041013 

STA 

0.13.2 

00124 '021402 

LDA 

0.2.3 

00125'041014 

STA 

0.14,2 

00126 '020444 

LDA 

0. .ZMXA 

00127 '041020 

STA 

0.20.2 

00130' 034443 

LDA 

3.DATAD 

00131 '021423 

LDA 

0.23.3 

00132 '041015 

STA 

0.15.2 

001 33 '021 424 

LDA 

0.24.3 

00134 '041016 

STA 

0.16.2 

00135 '021425 

LDA 

0.25.3 

00136 '041017 

STA 

0.17.2 

00137'020412 

LDA 

0.NIBS  .'GET  NO.  OF  INT.  BASIC  SOL. 

001 40 '101 400 

INC 

0.0  .'ADD  ONE  TO  NO. 

00141 '024433 

LDA 

l.MXNO  ;GET  MAX.  NO.  ALLOWED 

00142 '106513 

SUBLf 

0.1. SNC  .'SKIP  IF  NO.  > MAX.  NO. 

00143 '105000 

MOV 

0.1  : USE  NEW  NO. 

001 44 '046404 

STA 

61. NIBSA; STORE  NEW  NO.  OF  INT.  BASIC  SOL, 

001 45 '034402 

LDA 

3, RETRN  .'GET  RETURN 

00146 '001404 
00147 '000000  RETRN: 
00150 '000000  NIBSA: 
00151 '000000  NIBS: 
00152 '000000  CNTRl : 

JMP 

0 

0 

0 

0 

4.3  : RETURN 
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0003  SORT 

00153 '000000  , IBST:  0 
00154 '000000  PNTRl:  0 
00155 '000004  1NCR1:  4 
00156 '177777  .F5UB:  FFSB 
00157 '000000  TEMAl : 0 
001 60 '000000  TEMA2:  0 
00161 '000000  0 
00162 '000021  INCR2:  21 
001 63 '000000  CNTR2:  0 
00164 '000000  PNTR2:  0 
00165 '000000  CODEW:  0 
00166 '177777  . TTM1 : TTM1 
00167' 000027'. GAIN:  6AIN1 
001 70 '177777  .ANAR:  ANAR1 
00171 '177777  , TR61 : TR61 

001 72 '000000  . ZMXA:  0 
001 73 '000000  DATAD:  0 
001 74 '000020  MXNO:  20 
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CPHR  SUBROUTINE 

1.  The  CPHR  subroutine  calculates  the  actual  horizontal  range 
between  a target  and  sonobuoy  given  their  positions. 

2.  MNMX 

3.  JSR@  .CPHR 
.SnXH 

. TmXH 
A1HR 


•CPHR:  CPHR 

4.  FPMP 

5.  .SnXH,  .TmXH 

6.  A1HR 

7.  See  Figure  Cl8  , 

8.  See  Listing  Cl8  , 

9.  .SnXH  and  .TmXH  are  fixed  point  numbers  and  A1HR  is  a floating 
point  number. 


l 5 8 


0001  CPHR 
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' 


,NREL 

,TITL 

CPHR 

;03/4/74 

000010 

.RDX 

8 

.ENT 

CPHR 

.EXTN 

FES  B 

.EXTN 

FFSO 

.EXTN 

EE  AD 

.EXTN 

EESR 

.EXTN 

EELD 

00000 '054463  CPHR: 

3TA 

3.RETRN 

.'SAVE  RETURN  ADR. 

00001 '021400 

LDA 

0. 0. 3 

;GET  ADR.  OE  SONO.  TB. 

00002 '0404 13 

3TA 

0. SNXAD 

00003 '024461 

LDA 

l.DBJNC 

;GET  DATA  BASE  INCREM. 

00004 '123000 

ADD 

1.0 

:ADR,  OE  SONO.  Y 

00005 '040427 

3TA 

0.  SNYAD 

00006 '021401 

LDA 

0. 1.3 

;GET  ADR.  OF  TARGET  TB. 

00007 '040412 

STA 

0. TGXAD 

00010' 123000 

ADD 

1.0 

;A DR.  OE  TG.  Y 

00011 '040427 

STA 

0. TGYAD 

00012 '021402 

LDA 

0.2.3 

;ADR.  ACT.  HRG. 

0001 3 ' 040445 

STA 

0.  T3HRA 

00014 '006451 

J5R 

g.EELD 

;ELOAT  SONO.  X 

00015 '000000  3NXAD: 

0 

0001 6 '000004 

4 

0001 7 '000072' 

TEMA1 

00020 '006445 

JSR 

6, EELD 

;ELOAT  TRRGET  X 

00021 '000000  TGXAD: 

0 

00022 '000004 

4 

00023 '000075' 

TEMB1 

00024 '006442 

JSR 

e.FSUB 

;SONO.  X-T6.  x 

00025 '000072' 

TEMAl 

00026 '000075' 

TEMB1 

00027 '000100' 

TEMCl 

00030 '006437 

JSR 

S.ESGfi 

; (SX-TX)a2 

0003 1 '000100' 

TEMCl 

00032 '000103' 

TEMDl 

00033 '006432 

JSR 

6.  EELD 

.-ELOAT  SONO.  Y 

00034 '000000  SNYAD: 

0 

00035 '000004 

4 

00036 '000072' 

TEMAl 

0003 7 '006426 

JSR 

6. EELD 

.'ELOAT  TG.  Y 

00040 '000000  TGYAD: 

0 

00041 '000004 

4 

00042 '000075' 

TEMB1 

00043 '006423 

JSR 

6.ESUB 

••SONG.  Y-TG.  Y 

00044 '000072' 

TEMAl 

00045 '000075' 

TEMB1 

00046 '000100' 

TEMCl 

0004  7 '006420 

JSR 

g.ESGR 

; (SY-TY)a2 

00050 '0001 00' 

TEMCl 

i 

00051 '000072' 

TEMAl 

00052 '006416 

JSR 

g.EADD 

; (SX-TX)a2+  fSY-TY)A2 

00053 '000072' 

TEMAl 

00054 '000103' 

TEMD1 

00055 '000075' 

TEMB1 

00056 '006413 

JSR 

&.FSQT 

.•SORT  f ABOVE) 

00057 '000075' 

TEMB1 

00060 '000000  TSHRA: 

0 

00061 '034402 

LDA 

3.RETRN 

;GET  RETURN  ADR. 
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0002  CPHR 


00062' 001 m 

JMP 

00063 '000000 

RETRN 

0 

00064 '000002 

DB1NC 

2 

00065 '177777 

.FFLD 

FFLD 

m6S ‘177777 

.FSUB 

FFSB 

00067' 177777 

.FSQR 

FFSQ 

00070' 177777 

.F  ADD 

FF  AD 

00071 '177777 

.fSfiT 

FF5R 

00072 '000000 

TEMfil 

0 

00073 '000000 

0 

00074 '000000 

0 

00075 '000000 

TEMB1 

0 

00076 '000000 

0 

00077 '000000 

0 

00100 '000000 

TEMCl. 

0 

00101 '000000 

0 

001 02 '000000 

0 

00103 '000000 

TEMD1. 

0 

00104 '000000 

0 

00105 '000000 

0 

.END 


; RETURN 
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DSPRP  SUBROUTINE 


1.  The  DSPRP  subroutine  is  an  optional  program  which  is  called  to 
display  the  parameters  computed  for  a valid  ray  path  solution. 

2.  NR1A2 

3.  JSR@  .DSPP 
BGDAT 


.DSPP:  DSPRP 

4.  FPMP  and  DUMP 

5.  TPNUM,  BTNUM,  DIRMD,  NUMCY,  ZVAL1,  TDV1  or  FDV1,  TRG1 , TTM1, 
GAIN1,  and  ANAR1 . 

6.  Displays  above  data. 

7.  See  Figure  C19  » 

8.  See  Listing  C19«> 


NSWC/WOL/TR  75-115 


FIG.  C19 


C-163 


r 


0001  DSPRP 
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.NREL 

.T1TL 

DSPRP 

000010 

.RDx 

8 

.ENT 

DSPRP 

.ENT 

TOPNO 

.EXTN 

TDV1 

.EXTN 

TRG1 

.EXTN 

TTM1 

.EXTN 

6AIN1 

.EXTN 

ftNftRl 

.EXTN 

DUMP 

.EXTN 

FFXD 

00000 '05**52  DSPRP: 

STA 

3. RETRN 

00001 '031*00 

LDA 

2.0.3 

00002 '021026 

LDA 

0.26.2 

00003' 025027 

LDA 

1.27.2 

0000* ' 0*0*5* 

ST  ft 

0.  TOPNO 

00005' 0***5* 

STA 

l.BOTNO 

00005' 021032 

LDA 

0.32.2 

00007 '0*0*53 

STA 

0.NOMCY 

00010' 021030 

LDA 

0. 30, 2 

00011' 0*0*52 

STA 

0.DIRCT 

00012 '020**1 

LDA 

0, I NCI 

0001 3' 1*3000 

ADD 

2.0 

0001* '0*0*02 

STA 

0.  .ADZV' 

00015' 006*37 

JSR 

8. FFXD 

00016' 000000  .ADZV: 

0 

0001 7 ‘000007 

7 

00020 ‘00006*' 

ZVftLH 

00021 '006*33 

JSR 

g.FFxD 

00022' 177777 

TDV1 

00023' 000020 

20 

0002*' 000066' 

DEftVH 

00025' 006*27 

JSR 

g. FFXD 

00026' 177777 

TR61 

00027 ‘000010 

10 

00030 '000070' 

RN6H 

00031 '006*23 

JSR 

g .FFXD 

00032' 177777 

mi 

00033 '000020 

20 

0003*' 000072' 

TMDH 

00035 ‘006*17 

JSR 

g. FFXD 

00036' 177777 

6ft  INI 

00037' 000036 

36 

000*0' 00007*' 

6ANH 

000*1' 0064 1 3 

JSR 

g.FFxD 

000*2' 177777 

ANAR1 

000*3 ' 000036 

36 

000**' 000076' 

ftNGH 

000*5' 020*12 

LDA 

0.NOM 

000*6 ' 030*07 

LDA 

2. . TBAD 

000*7 '006*07 

JSR 

g . DUMP 

00050 ' 03**02 

LDA 

3.  RETRN 

00051' 001*01 

JMP 

1.3 

0005 2 ‘000000  RETRN: 

0 

00053 '000023  I NCI: 

23 

0005*' 177777  .FfxD: 

FFXD 

00055 ' 000060 ' . TBAD: 

TOPNO 

: 3/13/7* 


si 6 DEC 


;8  DEC 


; 16  DEC 


;30  DEC 


; 30  DEC 
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0002  DSPRP 

00056' 177777  .DUMP:  DUMP 

0005 7 '000001  NO M:  1 

00060 '000000  TDPNO:  0 

00061 '000000  BOTNO:  0 
00062 '000000  NOMCY:  0 

00063 '000000  DIRC7:  0 

0006^ '000000  ZVhLH:  IS 

00065 '000000  ZV'fiLL:  0 
00066 '000000  DERVH:  0 

00067 '000000  DERVL:  0 

00070 '000000  RN6H:  0 

00071 '000000  RN6L:  0 

00072 '000000  7MDH:  0 

00073 '000000  7MDL:  0 

0007^ '000000  GhNH:  0 

00075 '000000  6ANL:  0 

00076 '000000  ANON;  0 
00077 '000000  AN6L:  0 

.END 


I 

I 


I 
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TOTG  SUBROUTINE 

1.  The  TOTG  subroutine  is  an  optional  program  which  computes 
the  sum  of  the  squares  of  all  the  propagation  gains  in  mlBST  and 
then  displays  it  in  decibels. 

2 . PROPM 

3.  JSR@  .TOTG 
mlNBS 
mlBST 


. TOTG : TOTG 

4.  FPMP  and  DUMP 

5.  mlNBS  and  mlBST 

6.  Average  gain  for  all  ray  paths  in  mlBST 

7.  See  Figure  C20  . 

8.  See  Listing  C20 » 
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0001  TOTG 
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n\ 


.NRFL 

.TITL 

TOTG 

000010 

.RDX 

8 

.ENT 

TOTG 

.EXTN 

DUMP 

.EXTN 

FFXD 

• EXTN 

FFAD 

.EXTN 

FFLN 

.EXTN 

FFSQ 

.EXTN 

FFML 

00000 '05451 3 TOTG: 

STA 

3, RETRN 

00001 '031400 

LDA 

2.0.3 

00002 '021000 

LDA 

0.0.2 

00003 '040515 

STA 

0.CNTR 

00004 '101005 

MOV 

0.0.  SNR 

00005 '000447 

JMP 

ENDX 

00006 '031401 

LDA 

2.1.3 

00007 '020512 

LDA 

0.  INCR1 

00010' 113000 

ADD 

0.2 

00011 '050403 

STA 

2.  ADI 

00012 '050414 

STA 

2.AD4 

00013 '006501 

JSR 

6.FSO 

00014 '000000  ADI; 

0 

00015 '000056' 

AD2 

00016 '014502 

DSZ 

CNTR 

0001 7 '000402 

JMP 

. t2 

00020 '000416 

JMP 

ENDRR 

00021 '030405  LOOP: 

LDA 

2.AD4 

00022 '020500 

LDA 

0.  INCR2 

00023 '113000 

ADD 

0.2 

00024 '050402 

STA 

2.AD4 

00025 '006467 

JSR 

8.FS0 

00026 '000000  AD4: 

0 

00027 ' 000061 ' 

AD3 

000'30 '006467 

JSR 

6.  FAD 

00031  '000061 ' 

AD3 

00032 '000056' 

AD2 

00033 '000056' 

AD2 

00034 '014464 

DSZ 

CNTR 

00035 '000764 

JMP 

LOOP 

00036 '006457  ENDRR: 

JSR 

e.FLN 

00037 '000056' 

AD2 

00040 '000056' 

AD2 

00041 '006455 

JSR 

g.FML 

00042'000056' 

AD2 

00043'000064' 

AD6 

00044 '000067' 

LOGMG 

00045'006456 

JSR 

g .FFXD 

00046 '000067' 

LOGMG 

00047-000020 

20 

00050'000105' 

LGMX 

0005l'02042l 

LDA 

0.NOM 

00052'030453 

LDA 

2. . TBAD 

00053'006451 

JSR 

St.  DUMP 

00054'034437  ENDX: 

LDA 

3. RETRN 

00055 '001 402 

JMP 

2.3 

00056 '000000  AD2: 

0 

00057'000000 

0 

00060-000000 

0 

; 05/6/74 


;ADR.  OF  NO.  BS'S 
;NO.  BS'S 


; ADR.  OF  BST 
;INCR.  TO  GAIN 


;IGAIN)a2 


i 
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0002  T0T6 


mm' mm  m-. 

0 

00062 '000000 

0 

00063 '000000 

0 

00064 '040003  AD6: 

040003 

00065 '042574 

042574 

00066 '137454 

137454 

00067 '000000  LG6M6: 

0 

00070 '000000 

0 

00071' 000000 

0 

00072 '000001  NOM; 

1 

00073 '000050  TBAD: 

50 

00074 '000050 

50 

00075 '000000 

0 

00076 '000000 

0 

00077 '000000 

0 

001 00 ' 000000 

0 

00101 '000000 

0 

00102 '000000 

0 

00103 '000000 

0 

00104 '000000 

0 

00105 '000000  LOMX: 

0 

001 06 '000000 

0 

00107 '000000 

0 

001 10 '000000 

0 

00111  '000000 

0 

00112 '000000 

0 

00113'000000 

RETRN: 

001 14 '177777  .FSG: 

FFSfi 

001 15 '177777  .FIN: 

FFLN 

001 16 '177777  ,FML: 

FFML 

00117' 177777  .FAD: 

FFAD 

001 20 '000000  CNTR: 

0 

00121 '000004  INCA1: 

4 

001 22 '000021  INCR2: 

21 

001 23 '177777  ,FFXD: 

FFXD 

00124' 177777  .DUMP: 

DUMP 

00125 '000073 '.TBAD: 

TBAD 

.END 

: 4. 342944819 
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DUMP  SUBROUTINE 

1.  The  DUMP  subroutine  is  a display  program  which  shows  the  results 
computed  by  the  three  layer  ocean  subroutines.  There  are  two  formats 
which  can  be  displayed  on  either  the  cathode  ray  tube  (CRT)  or  line 
printer  (LPT). 

2.  DSPRP  and  TOTG 

3.  JSR@  .DUMP 


•DUMP:  DUMP 

4.  WRITE 

5.  Data  tables  formed  in  DSPRP  or  TOTG. 

6.  Displays  data  table. 

7.  NONE. 

8.  See  Listing  C21  . 

9.  a)  The  following  bit  patterns  in  the  switches  of  the  CPU  running 

the  three  layer  ocean  model  give  different  display  options. 
BIT  (0)  =0  ; Create  display 

=1  ; No  display 

BIT  (1)  =0  ; Long  display  format 

= 1 ; Short  display  fonnat 
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BIT  (15)  = 0 


Display  on  CRT 
Display  on  LPT 


b)  The  display  routines  DSPRP  and  TOTG  are  used  only  off-line  and 
not  during  a real  time  ASGS  problem  generation. 

c)  The  long  and  short  display  formats  are  explained  in 
Appendix  D. 
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0001  DUMP 
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.NREL 

.TITL 

DUMP  .*05/16/74 

.ENT 

DUMP 

.EXT  N 

SAVEL 

.EXTN 

SAVEC 

.EX  TN 

SHIT 

.EXTN 

WRITE 

.EXTN 

INTER 

000010 

,RDX 

8 

140000 

,DMR 

DS00  = 140000 

mm 

.DMR 

DD07  = 163400 

mm 

.DMR 

DD09  = 164400 

mm 

.DMR 

DD0S  = 164000 

170000 

.DMR 

DD16  = 170000 

1 77000 

.DMR 

DD30  = 177000 

163646 

.DUSR 

D7106  = 163646 

164646 

.DUSR 

D9106  = 164646 

170251 

.DUSR 

D16109  = 170251 

000040 

.DUSR 

I2F0  = 040 

000020 

.DUSR 

I1F0  = 020 

000246 

.DUSR 

ITF6  = 246 

000171 

.DUSR 

I7F9  = 171 

000031 

.DUSR 

I1F9  = 031 

00000 '054443  DUMP: 

STA 

3.RETN 

00001 '074477 

READS 

3 

00002' 175122 

MOVIE 

3. 3.  SZC 

00003' 002440 

JMPi 

RETN 

00004 '034007 

LDA 

3.7 

00005 '054442 

STA 

3.SAV7 

00006 '034442 

LDA 

3.  .AX 

00007 '054607 

STA 

3.7 

00010' 040512 

STA 

0.NOFL  .'NUMBER  OF  SETS 

00011 '050512 

STA 

2.SAV2  ; ADDRESS  TO  DATA 

00012 ' 102000 

A DC 

0.0 

00013' 040511 

STA 

0.LNNB  .'SET  LINE  TO  =1 

00014' 020436 

LDA 

0.  INTX 

00015' 040001 

STA 

0.1 

00016 '020435 

LDA 

0.  IMSK 

0001 7 ‘062077 

MSKO 

0 

00020 ' 0601 77 

1NTEN 

00021 '060477 

READS 

0 

00022' 126000 

A DC 

1.1 

00023' 101233 

MGVZR# 

0. 0.  SNC 

00024' 126400 

SUB 

1.1 

00025 '046424 

5 TAS 

1. .SWIT 

00026 '060477  EXEC: 

READS 

0 

00027' 036415 

LDAS 

3.  ,SAVC 

00030' 101222 

MOVZR 

0.0.  SZC 

00031 '036414 

LDAS 

3. , SAVL 

00032 '175004 

MOV 

3.3.SZR 

00033 ‘001 777 

JMP 

-1.3 

00034' 004432 

JSR 

DSPX 

00035 '126400 

SUB 

1.1 

00036 '046407 

ST AS 

1. .SAVL 

0003 7 '046405 

STAS 

1. , SAV'C 

00040 '034407 

LDA 

3.SAV7 

00041 '054007 

STA 

3.7 

00042 '002401 

JMPS 

RETN 
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0002  DUMP 
00043 '000000  RETN: 
00044 '177777  .SAVC: 
00045 ' 1 77777  .SAVL; 
00046 '000000  DCNT; 
0004 7 '000000  SAV7: 
00050' 0000Z6' .AX; 
00051*177777  .SHIT: 
00052 '177777  INTX; 
00053 '177700  IMSK; 
00054' 111000  CB0D; 
00055 '100400 
00056 '004403 
0005 7 '073301 
00060'001400 
00061 '000550  C6; 
00062 '000000  ARYPR: 
00063 '000000  CLBfR: 
00064 '000000  CLFLG: 
00065 '000000  FURD; 
00066'054433  D3PX: 
00067'004436  LINL; 
00070' 010434 
00071 '101000 
00070 '034435 
00073 '030430  LINM; 
00074 '053400 
00075 '010426 
00076*175400 
00077*053 400 
00100*175400 
00101' 105404 
00102 '000771 
00103*024423 
00104*030417  LINN; 
00105*053400 
00106*010415 
00107*010414 
00110' 175400 
00111*053400 
00112' 175400 
00113*125404 
00114*000770 
00115'004441 
001 16 '014404 
0011 7*000750 
00120-002401 
00101' 000000  DRTN: 
00122*000000  NOFL; 
00103' 000000  SP)V0: 
00104' 000000  LNNB: 
00125*177774  M4; 
00106' 177770  M6: 
00127 ' 0001 30 ' TADR; 
00130' 0001 77  * TA01  ; 
00131 '000305' 

00132* 000201 *TA02; 
0013 3*000307' 

00134' 000003 ' TA03 : 
00135*000311' 


0 

SA'/EC 

SAVEL 

0 

0 

EXEC 

SHIT 

INTER 

177700 


MOV 

0.2 

SUB 

0.0 

LDA 

1.C6 

MOL 

JMP 

0.3 

000550 

0 

0 

0 

0 

STA 

3. DRTN 

LDA 

1.M4 

ISZ 

LNNB 

MOV 

0.0 

LDA 

3.  TADR 

LDA 

2. SAV2 

STAS 

2.0.3 

ISZ 

SAV2 

INC 

3, 3 

STAS 

2.0,3 

INC 

3.3 

INC 

1.1. SZR 

JMP 

LINM 

LDA 

1.M6 

LDA 

2.  SAV2 

STAS 

2,0.3 

ISZ 

SAV2 

ISZ 

5AV2 

INC 

3, 3 

STAS 

0.0.3 

INC 

3. 3 

INC 

1.1.  SZR 

JMP 

LINN 

JSR 

OUTPT 

DSZ 

NOFL 

JMP 

LINL 

JMPS 

DRTN 

0 

0 

0 

0 

-4 

-6, 

TA01 

AD01 

XD01 

AD02 

XD02 

AD03 

XD03 
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0003  DUMP 


001 36' 000205 'TA04; 

AD04 

001 37 "00031 3' 

XD04 

00140 ' 000226 ' TA05; 

AD05 

00141  "000324' 

XD05 

00142' 000230 ' TA06 : 

AD06 

001 43 '000325' 

XD06 

001 44' 000253 'TA07: 

AD07 

00145 '000315' 

XD07 

00146' 000255 ' TA03 : 

ms 

00147 '00031 7' 

XD0S 

001 50 '000257 'TA09: 

AD09 

00151 '000321 ' 

XD09 

00152 '000232 'TA10: 

AD10 

00153 '000326' 

XD 10 

00154 '177777  .WRIT: 

HR1TE 

00155' 000000  GRT.N: 

0 

00156 '054777  OUTFT : 

STA 

3. ORTN 

00157 '074477 

READS 

3 

00160' 175120 

MOVZL 

3. 3 

00161 '175122 

MOV'ZL 

3. 3.  SZC 

00162 '000516 

JMP 

3HRT 

001 63 '006771 

JSRg 

.WRIT 

00164 '000535' 

BL OX- 10 

00165 '000200 

200 

00166'000332' 

FRM1 

.'TOP 

00167' 140040 

DS00 

I2F0 

001 70 '000124' 

LN.NB 

00171 '000000 

0 

001 72 '006762 

JSRS 

.WRIT 

00173 '000527' 

BL OX-16 

001 74 '000200 

200 

001 75 '000355' 

FRM2 

001 76 '140020 

DS00 

I1F0 

001 77 '000000  AD01; 

0 

00200 '140020 

D300 

I1F0 

00201 '000000  AD02; 

0 

00202 '140040 

DS00 

I2F0 

00203 '000000  m3: 

0 

00204 '140020 

DS00 

!1F0 

00205 '000000  AD04." 

0 

00206 '000000 

0 

00207 '006745 

JSR§ 

.WRIT 

002l0'000527' 

BLOX-16 

00211 '000200 

200 

00212 '000353 ' 

FRM0 

0021 3 '000000 

0 

00214 '006740 

J3RS 

.WRIT 

00215 '000527' 

BLOX-16 

0021 6 '000200 

200 

0021 7 '000376' 

ERM3 

00220 '000000 

0 

00221 '006733 

JSRS 

.WRIT 

00222 '00052 7' 

BLOX-16 

002 ? 3 ' 000200 

200 

00224 '000433' 

FRM4 

00225 '163646 

D7106 

00226 '000000  AD05: 

0 

00227 '170251 

D16109 

00230 '000000  mS; 

0 

.'LINE  TEED 


: PREV  Z 
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0004  DUMP 
00231 '177031 

DD30 

00232 '000000  AD10; 

0 

00233'000000 

0 

00234'006720 

JS  R6 

00235 '000527' 

BLOX-16 

00236-000200 

200 

00237 '000353' 

FRM0 

00240 ' 000000 

0 

00241 '006713 

JSRg 

00242' 000527 ' 

BLOX-16 

00243-000200 

200 

00244' 000442 ' 

FRM5 

00245'000000 

0 

00246‘006706 

J3R6 

00247 '000527' 

BLOX-16 

00250 '000200 

200 

00251 '000514' 

FRM6 

00252 ' 164246 

DD0S 

00253 '000000  AD07: 

0 

00254 '1701 71 

DD16 

00255 '000000  AD08 ; 

0 

00256' 177031 

DD30 

002 57-000000  AD09; 

0 

00260' 000000 

0 

00261 '006673 

JSRg 

00262 '000527' 

BLOX-16 

00263 '000200 

200 

00264 ' 000353 ' 

FRM0 

00265 ' 000000 

0 

00266 '034441 

LDA 

00267 '054442 

ST  A 

00270 '006664  LP; 

JSRg 

00271 '000527' 

BLOX-16 

002 72 '000200 

200 

002 73 '000353 ' 

FRM0 

002 74 '000000 

0 

00275 '01 4434 

DS2 

00276 '000772 

JMP 

00277' 002656 

JMRg 

00300 '006654  SHRT; 

JSPS 

00501 ' 000535 ' 

BL OX- 10 

00302 '000200 

200 

00303 ' 0004 74 ' 

FRM7 

00304 '140020 

DS00 

00305 '000000  XD01; 

0 

00306 '140020 

DS00 

00307 '000000  XD02: 

0 

00310'140040 

D300 

003 11 '000000  XD03: 

0 

00312 '140020 

DS00 

0031 3 '000000  VD04; 

0 

00314 '164246 

DD0S 

00315 '000000  XD07; 

0 

00316 '1701 71 

DD16 

0031 7 '000000  XD08: 

0 

00320' 177031 

DD30 

00321 '000000  XD09; 

0 

00322 '000000 

0 

00323 '002632 

JMRg 

lira 

.WRIT 

.'LINE  FEED 

.WRIT 

f PREVIOUS  RANGE 

.HR  IT 

1TF6 

17F9 

I1F9 

.WRIT 

.'LINE  FEED 

3. EIFG 
3.C0NT 
.WRIT 

.'LINE  FEED 

CONT 

LP 

OR  TN 
.HR  IT 

UF0 
UF0 
I2F0 
I1F0 
ITF6 
17 F9 
11F9 

C'RTN 
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0005  DUMP 

00324 '000000  XD05: 

0 

00325 '000000  XD06: 

0 

00326 '000000  XD10; 

0 

0032 7 '000002  ElfG: 

2 

00330 '000000  FLGX: 

0 

00331 '000000  CONT; 

0 

FRM1: 

.TXT  $ 

00332*020040 

00333 '000000 

.TXT  $ 

00334'020040 

00335-047524 

00336-020120 

00337-041040 

00340-052117 

00341 '047524 

00342'020115 

00343'041440 

00344-041531 

00345'042514 

00346-020123 

00347-053040 

00350'041505 

00351-047524 

00352-020122 

00353-000000 

000353' 

.LOC 

00353-106412  FRM0: 

106412 

00354'177777 

177777 

00355-020040  FRM2: 

020040 

00356'020040 

020040 

00357'020040 

020040 

0036 0-020040 

020040 

00361 '000000 

000000 

.TXT 

00362 '020040 

00363'020040 

00364-000000 

.TXT 

00365'020040 

00366'020040 

00367'000000 

.TXT 

00370'020040 

00371'020040 

00372-000000 

00373-020040 

020040 

00374-106412 

106412 

00375'177777 

177777 

FRM3: 

.TXT 

003 76 '020040 
00377 '020040 
00400 '050040 
00401 '042522 
00402 '044526 
00403 '05251 7 
00404 '020123 
00405 '0201 32 
00406 '020040 


$ 

TOP  BOTTOM  CYCLES  VECTOR  $ 


.-1 

* « 

* f 
$ $ 

$ PREVIOUS  Z $ 
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0006  DUMP 
00407 '020040 
00410 '000000 
000410' 

00410 '020040 
00411 '051120 
00412 '053105 
00413'047511 
00414 '051525 
00415 '042040 
00416 '051 105 
0041 7 '0531 11 
00420 '052101 
00421' 0531 11 
00422 '020105 
00423 '000000 
000423' 


00423 '020040 
00424 '044523 
00425 '024116 
00426'047101 
00427'046107 
00430 '024505 
00431 '000000 
000431 ' 
00431 '106412 
00432 '177777 
00433-000000  FRM4: 
00434 '020040 
00435 '000000 
00436 ' 020040 
00437‘000000 
00440' 106412 
00441 '177777 

ER  MS: 

00442 ' 020040 
00443 '050040 
00444 '042522 
00445 '044526 
00446 '0525 17 
00447 '020123 
00450 '040522 
00451 '043516 
00452 '020105 
00453 '020040 
00454 '000000 
000454' 

00454 '020040 
00455 '020040 
00456 '052040 
00457 '046511 
00460 '0201 05 
00461 '042504 
00462 '040514 
00463 '0201 31 
00464 '020040 
00465 '020040 


.LOC  .-1 

.TXT  $ PREVIOUS  DERIVATIVE  $ 


.LOC  .-l 

.TXT  $ SIN(ANGLE)* 


.IOC  .-1 

106412 
177777 
000000 
020040 
000000 
020040 
000000 
106412 
177777 

.TXT  * PREVIOUS  RANGE  $ 


.LOC  ,-l 

.TXT  * TIME  DELAY  $ 
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0007  DUMP 
00466 '000000 
000466' 

00466 '020040 
00467 '020040 
004 70 '040507 
00471 '047111 
00472 '000000 
000472' 
00472 '106412 
00475' 177777 
00474 '020040  FRM7; 
00475 -000000 
004 76 '020040 
00477 '000000 
00500 '020040 
00501  '000000 
00502 '020040 
00503 '000000 
00504 '020040 
00505 '000000 
00506 '020040 
00507 '000000 
00510 '020040 
00511 '000000 
00512 '106412 
00513 '177777 
00514 '000000  FRM6; 
0051 5 '020040 
00516 '000000 
0051 7 '020040 
00520 '000000 
00521 '106412 
00522 '177777 
00523 '020040 
00524 '020040 
00525 '020040 
00526 '020040 
0052 7 '020040 
00530 '020040 
00531 '020040 
00532 '020040 
00533 '020040 
00534 '020040 
00535 '020040 
00536 '020040 
00537 '020040 
00540 '020040 
00541 '020040 
00542 '020040 
00543 '020040 
00544 '020040 

000200  BLOX: 


.LOC  ;-i 

■ TXT  $ GAINS 


■LOC  .-1 
106412 
177777 
020040 
000000 
020040 
000000 
020040 
000000 
020040 
000000 
020040 
000000 
020040 
000000 
020040 
000000 
106412 
177777 
000000 
020040 
000000 
020040 
000000 
106412 
177777 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
■BLK  200 
.END 
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FPMP  SUBROUTINE 


, 

I 

i 

I 

I 


1.  The  FPMP  subroutine  is  a group  of  floating  point  math  routines 
which  are  required  by  the  three  layer  ocean  model  programs. 

2.  GRADS,  TSPP,  ZLIM,  MNMX,  NRMD,  NR1A2 , NR LAB,  FIN1,  FIN2,  FQ2 , 
CPGN,  SORT,  CPHR , DSPRP,  and  TOTG 

3.  JSR@  .FFAD  ; ADDITION 
(ADDRESS  OF  AUGEND) 

(ADDRESS  OF  ADDEND) 

(ADDRESS  OF  SUM) 


.FFAD:  FFAD 

JSR@  .FFSB  ; SUBTRACTION 
(ADDRESS  OF  MINUEND ) 
(ADDRESS  OF  SUBTRAHEND) 
(ADDRESS  OF  DIFFERENCE) 


.FFSB:  FFSB 

C-179 


W 


■ 
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JSR@  .FFML  ; MULTIPLICATION 
(ADDRESS  OF  MULTIPLICAND) 

(ADDRESS  OF  MULTIPLIER) 

(ADDRESS  OR  PRODUCT) 


•FFML: 


FFML 

JSR@  . FFDV  ; DIVISION 
(ADDRESS  OF  DIVIDEND) 
(ADDRESS  OF  DIVISOR) 
(ADDRESS  OF  QUOTIENT) 


. FFDV : FFDV 

JSR@  .FFSQ  ; SQUARE 
(ADDRESS  OF  ARGUMENT) 
(ADDRESS  OF  (ARGUMENT)2) 


. 


.FFSQ: 


FFSQ 

JSR@  .FFSR  ; SQUARE  ROOT 
(ADDRESS  OF  ARGUMENT) 
(ADDRESS  OF  /ARGUMENT) 
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.FPSR: 


.FFLN: 


.FFLD : 


FFSR 

JSR@  .FFLN  ; NATURAL  LOGARITHM 
(ADDRESS  OF  ARGUMENT) 

(ADDRESS  OF  LOGe  (ARGUMENT)) 


FFLN 

JSR@  .FFLD  ; FLOAT  DOUBLE  PRECISION  NUMBER 
(ADDRESS  OF  FIXED  POINT  NUMBER) 

(BINARY  POINT  IN  OCTAL) 

(ADDRESS  OF  FLOATING  POINT  NUMBER) 


FFLD 

JSR@  .FFXD  ; FIX  FLOATING  POINT  NUMBER  TO  DOUBLE 
PRECISION  NUMBER 

(ADDRESS  OF  FLOATING  POINT  NUMBER) 

(BINARY  POINT  IN  OCTAL) 

(ADDRESS  OF  FIXED  POINT  NUMBER) 


.FFXD:  FFXD 


C-l8l 


5 . NONE 

6.  

\ 7 .... 

; 

8.  See  Listing  C22 

9.  The  FPMP  subroutine  operates  on  three  word  floating  binary  point 
numbers.  The  first  word  is  the  exponent  which  uses  40000oas  zero. 

O y 

077777gas  the  maximum  positive  exponent,  and  OOOOOlg  as  the  maximum 
negative  exponent.  The  second  and  third  words  make  up  the  signed 


fractional  part  of  the  number. 
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.NREL 

,T  ITL 

FPMP.P3 

03/14/75 

.ent 

FFPD 

floating  point  add 

,E  NT 

FFSB 

'FLOATING  POINT  SUBTRACT 

.ENT 

FFML 

'FLOATING  POINT  MULTIPLY 

.ENT 

FFDV 

'FLOATING  POINT  DIVIDE 

.ENT 

FFSO 

'FLOATING  POINT  SQUARE 

.ENT 

FFSR 

'FLOATING  POINT  SQUARE  ROOT 

.ENT 

FFLN 

'FLOATING  POINT  LOGRITMMIEl 

.ENT 

FFXD 

'DOUBLE  FIX 

.ENT 

FFX5 

'SINGLE  FIX 

.ENT 

FFLD 

'DOUBLE  FLOAT 

0m  10 

.RDX 

8 

; J5R 

FFPD 

'JSR  FFSB 

; ADDEND 

'MINUEND 

; ADDER 

SUBTRAHEND 

; SUM 

’DIFFERENCE 

00000  '051401  ffsb: 

LDA 

2.1.3 

GET  ADDRESS  TO  SUBTRAHEND.  SCN 

00001 '021001 

LDA 

0.1.2 

GET  SCNH 

00002 '025002 

LDA 

1.2.2 

'GET  5CNL 

00003 '124405 

NEC 

1.1. SNR 

CHANGE  SIGN  OF  SUBTRAHEND 

00004 '100401 

NE6 

0.0. SKP 

00005' 100000 

COM 

0.0 

00006 '000407 

JMP 

AORS 

60  SUBTRACT  BY  ADDING  NEGATION 

00007' 171000  NOR1: 

MOV 

3.2 

'SAVE  RETURN  ADDRESS 

00010' 176000 

ADC 

3.  3 

'GET  -1  CORRECTION  OF  EXPONENT 

’FOR  SUM  DUE  TO  /2. 

00011 '000476 

JMP 

NORM 

'60  NORMALIZE 

00012 '031401  FFPD: 

LDA 

2.1.3 

'GET  ADDRESS  TO  ADDER.  SCN 

00013 '021001 

LDP 

0.1.2 

'GET  SCNH 

0001 4 '025002 

LDP 

1.2.2 

'GET  SCNL 

00015 '040576  AGRS: 

STA 

0. 5CNH 

SAVE  D.P.  SECOND  ARGUMENT 

00016 '044576 

STA 

1.5CNL 

00017'054576 

STA 

3.ERTN 

SAVE  RETURN  ADDRESS 

00020 '035400 

LDA 

3.0.3 

GET  ADDRESS  TO  FIRST  ARGUMENT. 

00021  '021401 

LDP 

0.1.3 

GET  FRSH 

00022 '025402 

LDP 

1.2.3 

GET  FRSL 

00023 '0405 77 

STA 

0. FRSH 

SAVE  D.P.  FIRST  ARGUMENT.  HIGH 

00024 '101005 

MOV 

0.0.  SNR 

IS  IT  0 

00025 '000527 

JMP 

STRS 

YE5.  50  USE  SCN  AS  SUM 

00026 '044575 

STA 

l.ERSL 

SAVE  D.P.  FIRST  PRGUMENT . LOW 

0002  7 '034564 

LDA 

3. 5CNH 

BET  SCNH 

00030 '175005 

MOV 

3, 3.  SNR 

IS  IT  0 

00031 '000515 

JMP 

STRF 

YES.  SO  USE  FRS  AS  SUM 

00032 '036563 

LDAe 

3.ERTN 

GET  FRS  ADDRESS 

00033 '035400 

LDA 

5.  0.  3 

GET  FR5X.  FRS  EXPONENT 

00034 '031 000 

LDA 

2.0.2 

GET  SCNX.  SCN  EXPONENT 

00035 '050564 

STA 

2.LEXP 

SAVE  POSSIBLE  LARGEST  EXPONENT 

00036 '172420 

SUBZ 

3.2 

SCNX-FRSX 

00037 '151 132 

MOVZL# 

2.2. SZC 

WHICH  PRGUMENT  TO  BE  R.S. 

00040 '000412 

JMP 

RSSC 

R.5.  SCN 

00041 '150405  R5FR: 

N EG 

2.2. SNR 

MAKE  NEGATIVE  COUNTER 

00042 '000424 

JMP 

DOAD1 

NO  SHIFT  NEEDED.  DO  ADD 

00043 '034555 

LDP 

3.C31 

GET  31.  MAX  RELEVANT  DI5TANCE 

00044 '173132 

ADDZLf 

3. 2. SZC 

TOO  MANY  SHIFTS 

00045 '000505 

JMP 

5 TORS 

YES.  SO  USE  SCN  AS  RESULT 

00046 '101 112 

MOVLf 

0. 0.SZC 

DO  POS.  OR  NEG.  R.S. 

0004 7 '0044 70 

JSR 

NRSM 

DO  NEGATIVE  R.S. 
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0002  fPMP. 


00050 '004462 

J5R 

PR5H 

f DO  POSITIVE  R.5. 

00051 '000415 

JMP 

DOPDl 

'DO  PDDITION 

00052 '054547  R55C,' 

5TA 

5.LEXP 

SAVE  LARGEST  EXPONENT 

00053 '034545 

LDP 

3.C31 

'GET  31.  MAX  RELEVANT  DISTPNCE 

00054 '1731 32 

ADDZL# 

3.2.5  ZC 

'TOO  MANY  SHIFTS 

00055 '000467 

JMP 

STORF 

’YES.  SO  USE  FRS  PS  RESULT 

00056 '020535 

LDP 

0. SCNH 

'GET  SECOND  PR6UMENT 

0005 7 '024535 

LDP 

l.SCNL 

00060 '101 112 

MQVL# 

0.0.  SZC 

DO  POS.  OR  NEC.  R.S. 

00061 '004456 

JSR 

NRSH 

'DO  NEGATIVE  R.S. 

00062 '004450 

JSR 

PRSH 

'DO  POSITIVE  R.S 

00063 '030537 

LDP 

2.FRSH 

GET  MSB  OF  FIRST  PRGUMENT 

00064 '034537 

LDP 

3.FRSL 

00065 '000403 

JMP 

D0PD2 

’DO  PDDITION 

00066 '030525  DOAD1; 

LDP 

2.  SCNH 

GET  MSB  OF  SECOND  ARGUMENT 

00067 '034525 

LDP 

3.SCNL 

GET  L5B  OF  SECOND  ARGUMENT 

00070 '167220  D0AD2; 

PDDZR 

3. 1 

ADD  L SB 

00071 '176620 

3UBZR 

3. 3 

GET  100000 

00072 '157400 

PND 

2.3 

SAVE  HOB  OF  SCN 

00073' 117020 

PDDZ 

0.3 

SET  PROPER  RESULT  FOR  CARRY 

00074 '125122 

MOVZL 

1.1.  SZC 

HAS  THERE  A CARRY 

00075 '101404 

INC 

0.0. 5ZR 

IMPLEMENT  CARRY 

00076 '175101 

MOV'L 

3. 3. SKP 

SET  SIGN  CORRECTION 

00077 '174100 

COML 

i) 

SIGN  CORRECTION  FOR  0 

00100 '143200  PRNMi 

PDDR 

2.0 

FORM  SUM/2 

00101 '125204 

M DVR 

1.1. 5ZR 

CHECK  FOR  0 

001 02 '000403 

JMP 

OVRK 

NOT  ZERO 

00103 '101005 

MOV 

0. 0.  SNR 

ARE  BOTH  0 

00104 '000453 

JMP 

riNP 

SUM  OF  0.  SO  TERMINATE 

00105 '004702  OVRK; 

JSR 

NOR1 

NORMALIZE 

00106 '000454 

JMP 

FINS 

TERMINATE  SCALING 

00107 '101 112  NORM; 

MOV'Lf 

0.0. SZC 

POS.  OR  NEC.  NORMALIZE 

001 10 '000404 

JMP 

NNRM 

NEGATIVE  NORMALIZE 

00111 '103113  PNRM; 

PDDLf 

0. 0.  SNC 

BITS  0 AND  1 BOTH  0 

00112 '000404 

JMP 

SCPL 

YES.  SO  CONTINUE  POS.  NORMALIZE 

001 13 '001000 

JMP 

0.2 

01  PATTERN.  SO  TERMINATE 

001 14 '1031 13  NNRM: 

ADDL# 

0. 0.  SNC 

BITS  0 AND  1 BOTH  1 

00115 '000406 

JMP 

NCK 

10  PATTERN.  SO  CHECK  FOR 

illegal  2asi. 

001 16 '125100  5CAL; 

MOV'L 

1.1 

D.P.  LEFT  SHIFT 

00117' 101100 

MOV'L 

0.0  _ 

00120 '175402 

INC 

o.  j.  oZC 

'BUMP  NUMBER  OF  LEFT  SHIFTS 

00121 '101020 

M OVZ 

0.0 

■FORCE  CARRY  0 

00122 '000765 

JMP 

NORM 

’KEEP  ON  NORMALIZING 

00123 '125004  NCK; 

MOV 

1.1. SZR 

CHECK  FOR  0 

00124 '001000 

JMP 

0.2 

NOT  0.  SO  TERMINATE 

00125'101134 

MOVZL# 

0.0.  SZR 

'CHECK  FOR  2a31 

00126 '001000 

JMP 

0.2 

'FINALLY  TERMINATE 

00127' 101240 

MOV'OR 

0.0 

MAKE  A LEGAL  NUMBER 

00130' 136000 

PDC 

1.3 

'REDUCE  EXPONENT  BY  1 

00131 '001000 

JMP 

0.2 

'FINALLY  TERMINATE 

00132 '101220  PR5H: 

MOVZR 

0.0 

'POSITIVE  RIGHT  SHIFT 

00133 '125200 

MOVR 

1.1 

00134 '151404 

INC 

2. 2. SZR 

'SHIFTS  COMPLETED 

00135 '000775 

JMP 

PRSH 

'NO.  CONTINUE  SHIFTING 

00136 '001400 

JMP 

0.3 

YES.  SO  RETURN 

00137' 101240  NR5H; 

MOVOR 

0.0 

NEGATIVE  RIGHT  SHIFT 

00140' 125200 

MOVR 

1.1 

00141 '151404 

INC 

2. 2. SZR 

'SHIFTS  COMPLETED 
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00142' 000775 

JMP 

NRSH 

.'NO.  CONTINUE  SHIFTING 

00143*001401 

JMP 

1.3 

:yes.  so  return 

fl01«W'KM56  STORF: 

LDA 

0.  FRSH 

I GET  FIRST  ARGUMENT 

00145*024456 

LDA 

1.FR3L 

00146 '032447  STRF: 

LDAe 

2. FRTN 

.'GET  FIRST'S  ADDRESS 

00147'031000  5T0: 

LDA 

2.0.2 

.'GET  EXPONENT 

00150'155100  STOK; 

MOVL 

2.3 

.'GET  EXPONENT  SIGN  INTO  CARRY 

00151 '000415 

JMP 

riNu 

.'STORE  RESULT 

00152 '030443  5 TORS: 

LDA 

2. FRTN 

.'GET  RETURN  ADDRESS 

00153 '031001 

LDA 

2.1.2 

(GET  SECOND'S  ADDRESS 

00154 '020437  STRS: 

LDA 

0. SCNH 

.'GET  SECOND  ARGUMENT 

00155 '024437 

LDA 

1.5CNL 

00156 '000771 

JMP 

STD 

.'GET  EXPONENT 

00157' 101020  FINP: 

MOVZ 

0.0 

i SET  CARRY  .'Y0 

00160 '000405 

JMP 

FINK 

: TERMINATE 

00161 '176400  STOR: 

SUB 

3.3 

(GET  0 EXPONENT  MODIFICATION 

00162 '030437  FINS: 

LDA 

2. LEXP 

(GET  EXPONENT  FOR  RESULT 

00163*172440 

SUBO 

3.2 

.'MODIFY  FOR  NORMALIZATION 

00164 '101021 

MOVZ 

0. 0. SKP 

.'SET  CARRY  = 0 

00165*030437  FINK: 

LDA 

2. XS40 

.'40000  FOR  0 RESULT 

00166*034427  FINU; 

LDA 

3. FRTN 

.'GET  RETURN  ADDRESS 

00167*053402  FINE: 

STAS 

2.2.3 

(STORE  EXPONENT  OF  RESULT 

00170*031402 

LDA 

2.2.3 

(GET  ADDRESS  OF  RESULT 

00171*041001 

STA 

0.1.2 

.'STORE  DOUBLE  PRECISION  RESULT 

00172*045002 

STA 

1.2.2 

001 73*001403 

JMP 

3. 3 

(RETURN 

;J5R 

FFSQ 

.'ARGUMENT 

.'SQUARE 

00174*054421  FFSQ: 

STA 

3.  FRTN 

.'SAVE  RETURN  ADDRESS.  THEN  MODIFY  IT 

001 75 '01 4420 

D5Z 

FRTN 

(FOR  TWO  ARGUMENT  CALLING  SEQUENCE. 

001 76 '023400 

LDfte 

0.0.  3 

(GET  AB  EXPONENT 

00177*030425 

LDA 

2. XS40 

(GET  EXCESS  40000  MASK 

00200*142 000 

ADC 

2.0 

(REMOVE  40001 

00201 '101140 

MOVOL 

0.0 

.'2 $ (EXPONENT- 1U1 

00202 ' 143000 

ADD 

2.0 

(REINSERT  40000 

00203*040416 

STA 

0.  LEXP 

.'STORE  EXPONENT  OF  SQUARE 

00204*050412 

ST  ft 

2.  SIGN 

.'SET  FOR  POSITIVE  RESULT 

00205 '031400 

LDA 

2.0.3 

.'GET  ADDRESS  OF  ARGUMENT.  AB 

00206 ' 004526 

JSR 

DOUB 

.'MAKE  AB  POSITIVE.  AND  DOUBLE 

00207*000756 

JMP 

FINK 

.'0.  SO  SQUARE  = 0.  CARRY  =0 

00210 '044406 

STA 

1. SIGN 

.'INSURE  POSITIVE  RESULT 

00211*006406 

JSRg 

.SQUR 

.'SQUARE  AB 

00212*000504 

JMP 

RETN 

(USE  FMUL  RETURN 

00213*000000  SCNH; 

0 

00214*000000  5CNL: 

0 

00215*000000  FRTN: 

0 

00216*000000  SIGN: 

0 

0021 7 '000353 '.SQUR; 

SQUR 

: VECTOR  TO  SQUR 

00220*000037  C31; 

37 

00221*000000  LEXP; 

0 

00222*000000  FRSH: 

0 

00223*000000  FR5L; 

0 

00224*040000  XS40: 

40000 

; JSR 

FFML 

:JSR  ffdv 

00225 ' 102401  FFML: 


.'MULTIPLICAND 
.'MULTIPLIER 
; PRODUCT 


.'DIVIDEND 

.'DIVISOR 

.'QUOTIENT 


0.0. SKP  .'GET  0 FOR  FLAG 
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00226 '102 000  FFDV: 

ADC 

0.0 

GET  - 1 FOR  FLAG 

00227 '054 766 

5TA 

3 FRTN 

SAVE  RETURN  ADDRESS 

00230 '040763 

5TA 

0. SCNH 

SAVE  FLAG 

00231 '023400 

LDA8 

0. 0. 3 

GET  AB  EXPONENT 

00232 '027401 

LDftS 

1.1.3 

GET  CD  EXPONENT 

00233 '030771 

LDA 

2. X540 

GET  EXCESS  40000  MASK 

00234 ' 142400 

SUB 

2.0 

REMOVE  40000 

00235' 146000 

ADC 

2.1 

REMOVE  40001 

00236'010755 

152 

SCNH 

MUL  OR  DIV 

00237' 123001 

ADD 

1.0.  SKF 

ADD  EXPONENTS  FOR  MUL 

0024 0' 122000 

ADC 

1.0 

SUBTRACT  EXPONENTS  FOR  DIV 

00241 '143000 

ADD 

2.0 

REINSERT  40000 

00242 '040757 

5TA 

0.  LEXP 

STORE  EXPONENT  OF  RESULT 

00243'050753 

5TA 

2. SIGN 

iNITIftLlZE  SIGN  OF  RESULT 

00244 '031401 

LDA 

2.1.3 

GET  ADDRESS  OF  CD 

00245 '004467 

JSR 

DOUB 

MAKE  CD  + DOUBLE.  REMEMBER  SIGN 

30246'0004 12 

jmp 

ILEG 

ILLEGAL  DIVIDE  OR  0 MULTIPLY 

00247'040570 

ST  ft 

0.C 

SAVE  C 

30250 '044570 

STft 

l.D 

SAVE  D 

00251'032?44 

LBfte 

2. FRTN 

GET  ADDRESS  OF  AB 

00252'004462 

JSR 

DOUB 

MAKE  AB  t DOUBLE.  REMEMBER  SIGN 

00253-000712 

JMP 

FINK 

0 RESULT.  CARRY  =0 

30254-014737 

D5Z 

SCNH 

MUL  OR  DIV 

30255'000406 

JMP 

FDIVT 

DO  DOUBLE  PRECISION  DIVIDE 

00256'004525  FML1: 

JSR 

MULT 

DO  DOUBLE  PRECISION  MULTIPLY 

00257'000437 

JMP 

RE  TN 

SETUP  TO  RETURN 

00260'014733  ILK: 

DSZ 

SCNH 

MUL  OR  DIV 

>50261 ' 105040 

MOVQ 

0.1 

CARRY  =1  FOR  ERROR.'  DIV 

00262'000703 

JMP 

FINK 

0 RESULT 

00263'101220  FDIVT: 

HOVZR 

0.0 

INSURE  DIVISOR  > DIVIDEND.  AB 

00264'125200 

MOVR 

1.1 

00265-030552 

LDA 

2.  C 

'GET  C 

30266'073101 

DIV 

AB/C  + REMAINDER 

00267'044733 

STft 

l.FRSH 

SAVE  MSB  OF  AB/C 

00270-126400 

SUB 

1.1 

'GET  ft  0 

00271'073101 

DIV 

; REMAINDER  /C 

00272'101002 

MOV 

0.0.  SZC 

00273'000765 

JMP 

1LEG 

'ILLEGAL  DIVIDE 

00274'044727 

STft 

l.FRSL 

SAVE  LSB  OF  AB/C 

00275'020725 

LDA 

0. FRSH 

GET  MSB  OF  AB/C 

00276'101220 

MQVZR 

0.0 

SCALE  TO  INSURE  LEGAL  DIVIDE 

00277'125200 

MOVR 

1.1 

30300-073101 

DIV 

1 

AB/Ca2 

00301-1 01002 

MOV 

0. 0. S2C 

• 

00302-000756 

JMP 

I LEG 

ILLEGAL  DIVIDE 

00305 '102400 

SUB 

0.0 

GET  ANOTHER  0 

00304 ' 030534 

LDA 

2.D 

GET  D 

00305'073301 

MUL 

:ABD/Ca2 

00306-126400 

SUB 

1.1  .'GET  ft  0 

00307'115120 

MQVZL 

0. 3 

CORRECT  FOR  SCALING 

00310-131100 

MO'VL 

1.2 

00311-020711 

LDA 

0.FR5H 

GET  DOUBLE  PRECISION  AB/C 

00312-024711 

LDA 

l.FRSL 

00313'166423 

SUB2 

3.1.SNC  .'SUBTRACT  LSB'S  AND  PROROGATE 

00314-151400 

INC 

2.2 

PROROGATE  THE  CARRY 

00315'142420 

SUB  7 

2.0 

THE  OVERFLOW.  AB/C  - ABD/Ca2. 

00316'034677  RETN; 

LDA 

3. FRTN 

GET  RETURN  ADDRESS 

00317'030702 

LDA 

2.LEXP 

GET  EXPONENT  ADDRESS 

00320'101133 

M0V2L# 

0. 0.  SNC 

15  HOB  OF  RESULT  A 1 
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00321 '000404 

JMP 

INSS 

00322*151420 

I.NCZ 

2.2 

00323 '101220  PRRS; 

M0V2R 

0,0 

00324 '125200 

MOVR 

1.1 

00325 '034671  INSS; 

LDA 

3.  SIGN 

00326 '175223 

MOVZR 

3. 3.  SNC 

0032 7 '000621 

JMP 

STOK 

00330' 124405 

N EG 

1.1. SNR 

00331 '100401 

N EG 

0. 0. 5KP 

00332 '100000 

COM 

0,0 

00333 '00061 5 

JMP 

STOK 

00334 '021001  DOUB; 

LDA 

0.1. 2 

00335 '025002 

LDA 

1,2,2 

00336 '101133 

MOVZL? 

0, 0,  SNC 

0033 7 '000405 

JMP 

STR 

00340 '010656 

ISZ 

SIGN 

00341 '124405 

NEC 

1.1.  SNR 

00342 '100401 

NEG 

0. 0,  SKP 

00343 '100000 

COM 

0,0 

00344 '125120  STR; 

MOVZL 

1.1 

00345*101100 

MOVE 

0.0 

00346 '040467 

5TA 

0,  A 

00347 '044467 

ST  A 

l.B 

00350*101024 

MQVZ 

0.0. SZR 

00351 '001401 

JMP 

1.3 

00352*001400 

JMP 

0.3 

00353 '054641  SOUR; 

ST  A 

3. 5CNL 

00354 '115000 

MOV 

0.3 

00355*040645 

ST  A 

0. FRSH 

00356' 102400 

SUB 

0.0 

00357*131000 

MOV 

1,2 

00360*073301 

MUL 

00361 '040642 

STA 

0. frsl 

00362*102400 

SUB 

0.0 

00363 '165000 

MOV 

3,1 

00364 ' 073301 

MUL 

00365*176400 

SUB 

3. 3 

00366 '125120 

MOVZL 

1.1 

00367' 101102 

MOVL 

0. 0.  SZC 

00370 '175400 

INC 

3.3 

00371 '030632 

LDA 

2. FRSL 

00372*147023 

ADDZ 

2.1.  SNC 

00373 ' 000403 

JMP 

.+3 

00374*101422 

INCZ 

0. 0. SZC 

00375 '175400 

INC 

3. 3 

00376 '030624 

LDA 

2. FRSH 

00377' 145000 

MOV 

2.1 

00400 '073301  5QR1 : 

MUL 

00401 '163000 

ADD 

3.0 

00402 '002612 

JMP§ 

5CNL 

00403 '054611  MULT; 

STA 

3.  SCNL 

00404 '024432 

LDA 

l.B 

00405 '050433 

LDA 

2.D 

00406 '102400 

SUB 

0.0 

00407*073301 

MUL 

004 10 '024425 

LDA 

1.  A 

I NO.  so  just  insert  the  sign 

I YES.  SO  RIGHT  SHIFT  RESULT 

; and  increment  exponent 

.'SHIFT  RESULT  RIGHT 

I INSERT  SIGN 
IPLUS  OR  MINUS 
I LEAVE  POSITIVE 
.'MAKE  RESULT  NEGATIVE 


'.GO  RETURN 
: GET  MSB 
I GET  LSB 

i POSITIVE  OR  NEGATIVE 
; POSITIVE 
:SET  SIGN  FLAG 
: NEGATE 


.'DOUBLE 

.'STORE  MSB 
'STORE  L SB 
f IS  IT  0 
: RETURN 
:0  RESULT 

.'SAVE  RETURN  ADDRESS 
.'SAVE  A.  B.  IS  IN  AC1 
I SAVE  A AGAIN 
.'TRUNCATE  THIS  MULTIPLY 
IB  IN  BOTH  AC1  AND  ACE 
IBB 

I SAVE  MSB  OF  BB 
.'ROUND  THIS  MULTIPLY 
I GET  A 

.'THINK  OF  AB  AS  TRIPLE  PRECISION 
; HSB.  MSB.  LSB  IN  AC3.  A C0.  AND  AC1, 
,'HSB  = 0 

I FORM  E AB  AND  PROPOGATE 
.'OVERFLOW  UP  THE  LINE. 

.'GET  MSB  OF  BB 

I ADD  LSB '5  AND  PROPOGATE  OVERFLOW 
.'UP  THE  LINE, 

.'KEEP  PROROGATING 

I GET  A 
: GET  A 

;AA  + MSB  OF  LESSER  AFFECTS 
.'FORM  DOUBLE  PRECISION  SQUARE 
: IN  AC0  AND  AC1 . 

.'RETURN 

.'SAVE  RETURN  ADDRESS 
.'GET  B 
:GET  D 

.'TRUNCATE  THIS  MULTIPLY 
;DB 

.'GET  A 
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mil '073301 

MUL 

>'DA  + MSB  Of  DB 

00412'044611 

STA 

l.fRSL  ,' SAVE  LSB  OF  TEMP.  PRODUCT 

00413 '040607 

STA 

0. FRSH  .'SAVE  MSB  OF  TEMP.  PRODUCT 

00414 '102400 

SUB 

0.0  : TRUNCATE  THIS  MULTIPLY 

00415 '030422 

LDA 

2 ,C  .'GET  C 

0041 6 '024420 

LDA 

l.B  .'GET  B 

00417 '073301 

MUL 

.'THINK  OF  CB  AS  TRIPLE  PRECISION. 

; MSB.  MSB.  LSB.  IN  ACS.  AC0,  AND  AC1. 

00420 '176400 

SUB 

3.3  .'MSB  = 0 

00421 '030602 

LDA 

2.FRSL  .'GET  LSB  OF  TEMP.  PRODUCT 

00422 '147023 

ADD2 

2.1.SNC  .'ADD  LSB'S  AND  PROROGATE  OVERFLOW 

00423 ' 000403 

JMP 

.+3  .'UP  the:  LINE. 

00424 '101422 

INCZ 

0.0. S2C  : INCREMENT  MSB 

00425 '175400 

INC 

3.3  .' INCREMENT  HSB 

00426 '032406 

LDAS 

2.  .FRSH  .'GET  MSB'S  .OF  TEMP.  PRODUCT 

00427 '143022 

ADD2 

2.0.S2C  .'ADD  MSB'S  AND  PROPOGATE  OVERFLOW 

00430 '175400 

INC 

3.3  .'TO  THE  HSB 

00431 '024404 

LDA 

1. A .'GET  A.  ADD  IN  LOWER  AFFECTS 

00432 '030405 

LDA 

2.C  .'GET  C 

00433 '000745 

JMP 

5QR1  .'FI.NSH  WITHIN  SOUR 

00434' 000222 '.FRSH; 

A* 

FRSH 

H» 

00435 '000000  XH; 

D r 

0 

Dr 

00436 '000000  XL; 

A » 

0 

C r 

00437 '000000  X2H; 

0 

Df 

00440 '000000  X2L; 

0 

00441 '000000  ADi; 

0 

00442 ' 000000 

0 

00443 '000000 

0 

00444-' 040001  AD3: 

040001 

.'2a  1/2 

00445 '055202 

055202 

00446 '074631 

074631 

0344? '040000  AD9: 

040000 

.' . 59+ 

00450 '046253 

046253 

03451 '05242? 

052427 

00452 '040000  ADS; 

040000 

.'.96+ 

00453 '075421 

075421 

30454 '074074 

074074 

00455 '040002  AD 7; 

040002 

.'2.53+ 

00456 '056125 

056125 

0045? '020035 

020055 

00460 '040000  A D10; 

040000 

.'1/2 

00461 '040000 

040000 

00462 '000000 

000000 

30463 '040000  AD14; 

040000 

.'.69315+ 

00464 '054271 

054271 

00465 '005773 

005773 

300003  AD4; 

,BLK 

3 

000003  AD6; 

.BLK 

3 

000003  ADI 1 

.BLK 

3 

300003  ADI 2; 

.BLK 

3 

030003  AD 13: 

• BLK 

3 

30535 ' 000000  SAV'K : 

0 

00506 '000000  SAV1: 

0 

;J3R 

FFLN 

; ARGUMENT 

LISTING  C22  (Continued) 
C-188 


0007  FPMP . 


NSWC/WOL/TR  75-115 


0050? '000000 '.FFSB; 

00510 '001127' .FFLD; 

00511 '000225 ' . FFML : 

00512*0001?4'.FF5Q; 

00513 '000226 '.FFDV: 

00514' 00001 2 ' . FF AD : 

00515 '054551  FFLN: 

00516*020742 

00517*040755 

00520*102400 

00521*040754 

00522 '040754 

00523 '040762 

00524 '021401 

00525*040522 

00526*014540 

00527 '023400 

00530*024535 

00531 ' 122000 

00532*040754 

00533*101132 

00534*014751 

00535*031400 

00536*021001 

00537*025002 

00540 '101132 

00541 '000516 

00542*103113 

00543*000514 

00544*040671 

00545*04467 1 

00546*006742 

00547*000505' 

00550*000000 

00551*000502' 

00552*006736 

00553*000435' 

00554*000036 

00555*000441' 

00556*006731 

00557*000441 ' 

00560*000444' 

00561*000466' 

00562*006732 

00563 '000441' 

00564 '000444 ' 

00565*000471' 

00566*006725 

00567*000466' 

00570*00047 1 ' 

00571*000466' 

00572*006720 

00573*000466' 

00574*000471' 

00575*006714 

00576*000466’ 

00577*000455' 


,* LOGRITHM 

FFSB 

FFLD 

FFML 

FFSQ 

FFDV 

FFflD 

STA 

3. 5RTN 

.'SAVE  RETURN  ADDRESS  THEN  MODIFY  IT 

LDA 

0. AD10 

STA 

0, AD11 

SUB 

0.0 

STA 

0.AB11+1 

STfi 

0. ADI 1+2 

STfi 

0.  SflV'K 

i ASSUME  POSITIVE  EXPONENT 

LDfi 

0. 1. 3 

STfi 

0.AD5 

DSZ 

SRT.N 

'.FOR  THO  ARGUMENT  CALLING  SEQUENCE. 

LDfi® 

0.0.3 

.'GET  ARGUMENT  EXPONENT 

LDfi 

1.XS4T 

:GET  EXCESS  40000  MASK 

fl  DC 

1.0 

.'FORM  AB  EXPONENT.  BASE  2 

ST  A 

0. SAVl 

.'SAVE  AB  EXPONENT 

MOVZLf 

0. 0. SZC 

.'IS  EXPONENT  NEGATIVE 

DSZ 

SAVK 

; SET  HOW  = -1 

LDfi 

2.0.3 

.'GET  ADDRESS  OF  ARGUMENT.  AB 

LDfi 

0.1.2 

.'GET  A 

LDfi 

1.2.2 

.'GET  B 

MOVZLf 

0.0. SZC 

: CHECK  FOR  ILLEGAL  NEGATIVE  ARGUMENT 

JMP 

ILFR 

.'ILLEGAL.  SET  CARRY  = 1 AND 
.'RETURN  0 AS  ANSWER, 

fiDDLf 

0. 0. 5NC 

.'MUST  BE  ATLEAST  .5  B31 

JMP 

ILFR 

.'  ILLEGAL 

STA 

0.X  H 

.'SAVE  X AS  B31  FRACTION 

STfi 

l.XL 

JSR® 

C A«/h' 

.FFLD 

vH:|\ 

0 

ADI  3 
JSR® 

. FFLD 

XH 

36 

ADI 

JSRS 

.FFSB 

ADI 

ADS 

AD4 

JSR6 

.FFflD 

ADI 

flD3 

AD6 

JSR  S 

.FFDV 

AD4 

ADS 

AD4 

JSRS 

.FFSQ 

AD4 

AD6 

JSRe 

.FFML 

AD4 

AD  7 
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00600*000474* 

ADll 

00601 '006710 

JSRe 

.FFML 

00602 '0004 71' 

AD6 

0060c '000452' 

ADS 

00604*000477' 

AD12 

00605 '006704 

JSRe 

.FFML 

00606 '0004 77' 

ADI  2 

00607*000466' 

AD4 

00610 '000477' 

AD12 

00611' 006 703 

JSRS 

.FFftD 

00612*000474' 

A Dll 

00613*000477' 

ADI  2 

00614*000474' 

ADll 

00615*006675 

JSRe 

.FF50 

00616 '0004 71' 

AD6 

00617*000471' 

AD6 

00620*006671 

JSRe 

.FFML 

00621 '000471 ' 

AD6 

00622 '000466* 

A04 

00623*000471' 

AD6 

00624'006665 

JSRS 

.FFML 

00625*000471' 

AD6 

00626-000447* 

AD9 

0062 7*000471' 

AD6 

00630'006664 

JSR§ 

.FFftD 

00631 '000471 ' 

AD6 

00632*000474* 

ADll 

00635*000474' 

ADll 

00634 '006660 

JSRe 

.FFftD 

00635*000474' 

A Dll 

00636*000460' 

AD10 

00637*000474' 

ADll 

00640*006654  5FLN: 

JSRe 

.FFftD 

00641*000 474' 

ADll 

00642*000502* 

ADI  3 

00643*000474* 

ADll 

00644*006645 

JSRe 

.FFML 

00645*000474* 

ADll 

00646*000463* 

AD14 

00647*000000  AD5; 

0 

00650*034416 

LDA 

3.SRTN 

00651*001403 

JMP 

3. 3 

00652*101020  ERC1: 

MC'VZ 

0.0 

00653*034413  PC; 

LDA 

3.  SRTN 

00654*002401 

JMPe 

.FINE 

00655*000167' .FINE; 

FINE 

00656' 000007 '.N0R1; 

NOR  1 

00657*102400  ILER; 

SUB 

0.0 

00660*030405 

LDA 

2.  X'54T 

00661*105040 

MOVO 

0.1 

00662 '000771 

JMP 

PC 

00663*030623  FRCE: 

LDA 

2.SAV1 

00664*000766 

JMP 

FRC1 

00665*040000  X54T; 

40000 

00666*000000  5RTN: 

0 

;JSR 

FF5R 

; ARGUMENT 

: SQUARE  ROOT 

00667*054777  ffSR: 

ST  ft 

3. SRTN 

.'SET  CARRY  = 0 
.'GET  RETURN  ADDRESS 
£60  STORE 
: VECTOR  TO  FINE 
.'VECTOR  TO  N0R1 

.'GET  EXPONENT 


.'GET  EXPONENT 
;G0  RETURN 
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00670 '014776 

DSZ 

5RTN 

00671 '030507 

LDA 

2.CS 

00672 '050512 

5TA 

2.C0NT 

00673 '035400 

LDA 

3.0.3 

00674 '021401 

LDA 

0. 1.3 

00675*033770 

LDA 

2. XS4T 

006 76 '126420 

SUBZ 

1.1 

00677' 101133 

MOVZLt 

0. 0. SNC 

00700*101025 

MOVZ 

0.0.  SNR 

00701 '000473 

JMP 

OVR1 

00702 '025402 

LDA 

1.2. 3 

00703 '035400 

LDA 

3.0. 3 

00704 '156400 

SUB 

2.3 

00705 '054475 

STA 

3. SAVH 

00706 '175132 

MOVZLt 

3. 3.  SZC 

00707*175241 

MOV'OR 

3. 3.  SKP 

00710 '175220 

MOVZR 

3,3 

00711 '175002 

MOV 

3.3.  SZC 

00712*175400 

INC 

3,3 

00713 '157000 

ADD 

2.3 

00714 '054465 

ST  A 

3.  SAVX 

00715 '034465 

LDA 

3,  SAVH 

00716 '175222 

MOVZR 

3, 3,  SZC 

00717*000404 

JMP 

ODD 

00720*115220 

MOVZR 

0.3 

00721 '173000 

ADD 

3.2 

00722*000403 

JMP 

EVEN 

00723 '101220  ODD: 

MOVZR 

0.0 

00724*125200 

MOVR 

1,1 

00725*176400  EVEN; 

SUB 

3,3 

00726*101220 

MOVZR 

0.0 

00727' 125200 

MOVR 

1,1 

00730*040455 

STA 

0.AA 

00731 '044455 

STA 

l.BB 

00732 '050455  LP: 

STA 

2.CC 

00733*054455 

STA 

3.DD 

00734 '020451 

LDA 

0.AA 

00735*024451 

LDA 

l.BB 

00736 '073101 

DIV 

00737*044443 

STA 

1 . SAVH 

00740*126400 

SUB 

1.1 

00741*073101 

DIV 

00742 '044441 

STA 

l.SAVL 

00743 '155000 

MOV 

2.3 

00744*102400 

SUB 

0.0 

00745*024443 

LDA 

l.DD 

00746 '131005 

MOV 

1.2. SNR 

00747' 000406 

JMP 

5HRT 

00750 '030432 

LDA 

2. SAVH 

00751 '073301 

MUL 

00752 '171000 

MOV 

3.2 

00753 '073101 

DIV 

00754 '152520 

SUBZL 

2.2 

00755 '135000  5HRT ; 

MOV 

1.3 

(FOR  TWO  ARGUMENT  CALLING  SEQUENCE. 

( GET  AN  8 

:SET  UP  COUNTER 

:GET  ADDRESS  TO  ARGUMENT 

.'GET  ARGUMENT  HIGH 

( GET  40000 

.'GET  A 0 IN  CASE  OF  ERROR 

• pfl  fJRy  = 1 1 

i IS  ARGUMENT  NEGATIVE 
.'IS  ARGUMENT  0 

;yes  so  return  with  0 

.'GET  ARGUMENT  LOW 
.'GET  EXPONENT  OF  ARGUMENT 
(REMOVE  40000 

.'SAVE  EXPONENT  OF  ARGUMENT 
.'IS  EXPONENT  + OR  - 
.'RIGHT  SHIFT  - 
IRIGHT  SHIFT  + 

.'ODD  OR  EVEN 
.'ODD  SO  MAKE  X=X/2+l 
.'REINSERT  40000 
.'SAVE  EXPONENT  OF  SORT 
.'GET  EXPONENT  OF  ARGUMENT 
.'WAS  EXPONENT  EVEN  OR  ODD 
.'ODD.  SO  RIGHT  SHIFT  ARGUMENT 
.'TWO  POSITIONS  AND  USE  .5815 
.'AS  ESTIMATE 

; EVEN.  SO  RIGHT  SHIFT  ARGUMENT 
; ONE  position  and  use 

,'  Il+ARGJ/2  B15  AS  ESTIMATE. 

.'FORM  ESTIMATE 
(SHIFT  RIGHT  ONCE 
(SHIFT  RIGHT  ONCE 

(GET  A 0 

(SHIFT  RIGHT  ONCE 

(SAVE  ARGUMENT.  DOUBLE  PRECISION 

(SAVE  ESTIMATE.  DOUBLE  PRECISION 

(GET  ARGUMENT 

,'AB/C  t REMAINDER 
.'SAVE  MSB  OF  AB/C 
(GET  A 0 
(REMAINDER/C 
(SAVE  LSB  OF  AB/C 
(KEEP  C 

(GET  ANOTHER  0 
(GET  D 
(IS  D 0 

(YES.  SO  DO  SHORT  DIVIDE 
(GET  MSB  OF  AB/C 
r oRn/r 

'GET  C IN  POSITION 
;ABD/Ca2 
.'GET  A 1 
;ABD/Ca2 
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00756 '020424 

LDA 

0.SAVH 

.'GET  DOUBLE  PRECISION  A B/C 

00757'024424 

LDA 

l.SAV'L 

00760 '166423 

SUBZ 

S.l.SNC 

'SUBTRACT  L SB'S  AND  PROROGATE 

00761 '142400 

SUB 

2.0 

'THE  OVERFLOW.  AB/C-  ABD/Ca2. 

00762 '030425 

LDA 

2.CC 

f GET  DOUBLE  PRECISION  ESTIMATE 

00753 '034425 

LDA 

3.  DD 

00764 '167022 

ADD2 

3.1.SZC 

!FOR M EST  = (IARG/ESTUESTU2 

00765' 101400 

INC 

0.0 

00766 '113220 

ADDZR 

0.2 

'NEW  ESTIMATE.  DOUBLE  PRECISION 

00767 '135200 

MQVR 

1.3 

00770 '014414 

DSZ 

CONT 

DECREMENT  COUNTER 

00771 '000741 

JMP 

LP 

'CONTINUE  SQUARE  ROOTING 

00772 '141000  OVER; 

MOV 

2.0 

[FINAL  ESTIMATE  = SQUARE  ROOT 

00773 '165021 

MQVZ 

3.1.SKP 

'CARRY  = 0 

00774 '121001  0VR1: 

MOV 

1.0. 5KP 

■0  FOR  ERROR  OR  0.  EXPONENT 

00775 '030404 

LDA 

2. SAVX 

'GET  EXPONENT  OF  SORT 

00776 '034670 

LDA 

3. 5RTN 

’GET  RETURN  ADDRESS 

00777 '002656  FNE: 

jMPe 

.FINE 

'GO  STORE 

01000 '000004  C8; 

4 

01001 '000000  SAVX; 

0 

01 002 '000000  5AVH; 

0 

01003 '000000  SflVL: 

0 

01004 '000000  CONT: 

0 

01 005 '000000  AA: 

0 

01006 '000000  BB: 

0 

01007'000000  CC; 

0 

01 010 '000000  DDr 

0 

; JSR 

FFXD 

JSR  FFXS 

; FLOAT 

FLOAT 

;BPT 

BPT 

; FIX 

FIX 

01011 '102521  FFXS: 

SUB2L 

0.0. SKP 

GET  A 1 

01012 '102400  FFXD: 

SUB 

0.0 

GET  A 0 

01013 '040512 

STA 

0, FFER 

CLEAR  POSSIBLE  ERRORS  TO  COME 

01014 '040510 

STA 

0. DORS 

SET  DOUBLE  OR  SINGLE  FLAG 

01 01 5 '054511 

STA 

3.  XRTN 

SAVE  RETURN  ADDRESS 

01016 '027400 

LDA© 

1.0.3 

GET  EXPONENT  (+400001  OF  FLOAT 

0101 7 '030502 

LDA 

2.CC31 

GET  40031 

01020' 132400 

SUB 

1.2 

31 -EXP 

01021 '025401 

LDA 

1. 1.3 

GET  BINARY  POINT 

01022 '132400 

SUB 

1.2 

f SHIFT  = 31-EXP-BPT 

01023 '050500 

STA 

2. 5AVS 

SAVE  SIGNED  f SHIFTS 

01024 '035400 

LDA 

3.0  3 

GET  ADDRESS  TO  FLOATED  ARGUMENT 

01025 '021401 

LDA 

0.1.3 

GET  MSB 

01026 '025402 

LDA 

1.2.3 

GET  LSB 

01027'151025 

MQVZ 

2.2. SNR 

DO  YOU  NEED  SHIFTING 

01 030 '000456 

JMP 

DOVR 

NO. GO  STORE  FIXED 

01031 '034471 

LDA 

3.C16 

GET  16 

01032 '151133 

MOVZLf 

2.2.5NC 

IS  fSHlFTS  POSITIVE 

01033 '150400 

NEC 

2.2 

MAKE  9S.HIFTS  NEGATIVE 

01034 '157026 

ADDZ 

2.3.SE2 

16-f SHIFTS 

01035 '000423 

JMP 

D 00 

0=0.  AC2  HAS  -9SH1FTS 

01036' 171005 

MOV 

3. 2. SNR 

0=1.  AC2  HAS  -SHIFTS 

01 03 7 '000404 

JMP 

DQl 

JUST  16  SHIFTS 

01 040 '034462 

LDA 

3.C16 

GET  16 

01041 '157023 

ADDZ 

2. 3.  SNC 

16-ISHIFT5 

01 042 '0004 13 

JMP 

DERR 

TOO  MANY  SHIFTS.  SO  ERROR 

01043 '034460  Ml; 

LDA 

3. SAVS 

GET  SIGNED  f SHIFTS 

01044 '175132 

MOVZLf 

o.  3.  w Zb 

LEFT  OR  RIGHT 
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01045*000431 

JMP 

DQ1L 

SHirT  LEFT 

01046*105000 

DQ1R: 

MOV 

0.1 

GET  MSB  INTO  OLD  L SB 

0104 7*102400 

SUB 

0.0 

GET  A ZERO 

01050*125132 

MOVZLf 

1.1.  SZC 

SIGN  OP  MSB 

sissi -mm 

ADC 

0.0 

negative  sign  extension 

01052*151024 

MQV'Z 

2.2.SZR 

IS  SHIFT  NEEDED 

010 55*000414 

JMP 

DQ0R 

RIGHT  SHIFT 

01054*000432 

JMP 

DOVR 

NO  SHIFT.  GO  STORE 

01055*126400 

DERR: 

SUB 

1.1 

ZERO  RESULT 

01056*102420 

SUBZ 

0.0 

CARRY  =1 

01057*000427 

JMP 

DOVR 

GO  STORE  FIXED 

010 60*034443 

DOS: 

LDA 

3.SAVS 

GET  SIGNED  f SHIFTS 

01061*175132 

MOVZLf 

3, 3. SZC 

LEFT  OR  RIGHT 

01062*000420 

JMP 

DQ0L 

SHIFT  LEFT 

01063*034441 

LDA 

3. DORS 

GET  DOUBLE  OR  SINGLE  FLAG 

01064*175004 

MOV 

3.3.SZR 

DOUBLE  OR  SINGLE 

01065*176000 

ADC 

3.3 

GET  -1  ERROR  FLAG 

01066*054437 

STA 

3.  Ff£R 

ERROR  HAS  OCCURRED 

01067*101132 

DQ0R: 

MOVZLf 

0.0.  SZC 

SIGN  OF  MSB.  PLUS  OR  MINUS 

01070*101241 

MOVOR 

0. 0. SKP 

negative  right  shift 

01071*101220 

MOVZR 

0.0 

DOUBLE  PRECISION  SIGNED 

01072*125200 

MOV'R 

1.1 

RIGHT  SHIFT. 

01073*151444 

INCO 

2.2.SZR 

CARRY  =0 

01074*000773 

JMP 

DO0R 

CONTINUE  SHIFTING 

01075*000411 

JMP 

DOVR 

GO  STORE 

01076*121000 

DQ1U 

MOV 

1.0 

GET  LSB  INTO  OLD  MSB 

01077*126400 

SUB 

1.1 

LSB  =0 

01100*151045 

M QVO 

2. 2. SNR 

IS  SHIFT.  NEEDED 

01101 '000405 

JMP 

DOVR 

NO  SHIFT.  GO  STORE 

01102*125120 

DQ0L : 

MOVZL 

1.1 

DOUBLE  PRECISION  LEFT  SHIFT 

01103*101100 

MOVL 

0.0 

01104*151424 

1NCZ 

2.2.  SZR 

CARRY =1 

01105*000775 

JMP 

DQ0L 

CONTINUE  SHIFTING 

01106*034417 

DOVR: 

LDA 

3. FFER 

GET  ERROR  FLAG 

01107*175100 

MOVL 

3.3 

IF  ERROR.  SET  CARRY  = 1 

01110*034416 

LDA 

3.  XRTN 

GET  RETURN  ADDRESS 

01111*031402 

LDA 

2,2.3 

GET  ADDRESS  TO  FIXED 

01112*041000 

STA 

0.0.2 

STORE  MSB  OF  D.P. 

01113*020411 

LDA 

0. DORS 

GET  DOUBLE  OR  SINGLE  FLAG 

01114*101004 

MOV 

0. 0.  SZR 

DOUBLE  OR  SINGLE 

01115*045000 

STA 

1.0,2 

SINGLE 

01116*101005 

MOV 

0.0. SNR  .'DOUBLE  OR  SINGLE 

01117*045001 

STA 

1.1,2  .'DOUBLE 

01120*001403 

JMP 

3.3 

RETURN 

01121*040037 

CC31: 

040037 

01122*000020 

C16; 

000020 

01123*000000 

SAVS; 

0 

01124*000000 

DORS: 

0 

01125*000000 

FFER: 

0 

01126*000000 

XRTN: 

0 

; JSR 

FFLD 

; FIX 

;BPT 
;FL  OT 

01127*054777 

FFLD: 

STA 

3.  XRTN 

SAVE  RETURN  ADDRESS 

01130*025401 

LDA 

1,1.3 

GET  BINARY  POINT.  BPT 

01131*030770 

LDA 

2.CC31 

GET  40031 

01132*132400 

SUB 

1.2 

FORM  EXPONENT  (+40000) 

01133*035400 

LDA 

3. 0. 3 

GET  ADDRESS  TO  FIX 
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01 134 '021400 

LDA 

0.0,3 

.'GET  MSB  OE  DOUBLE  PRECISION 

01135 '025401 

LDA 

1.1.3 

,'GET  LSB  OE  DOUBLE  PRECISION 

01136' 176400 

3UB 

3.3 

.'GET  0, FOR  SHIFT  COUNTER 

01137' 101005 

MOV 

0. 0.  SNR 

.'CHECK  FOR  0 FIX 

01140' 125004 

MOV 

1.1. SZR 

0i 141 '000403 

JMP 

NZRO 

.'NOT  ZERO  SO  LEFT  JUSTIFY 
; TO  B31 

01142' 152620 

SUB2R 

2.2 

,'GET  100000  FOR  040000 

01 143 '000427 

JMP 

ZRO 

'.ZERO.  50  RETURN  0 

01 144 '125120  NZRO; 

M0V2L 

1.1 

.'SHIFT  TO  FIND  SIGN  BIT 

01145*101102 

MOVL 

0.0.  SZC 

01146 '000407 

JMP 

SNEG 

: NEGATIVE.  SCAN  FOR  10 

01147*101132  SPOS; 

MQVZLf 

0. 0. SZC 

: POSITIVE.  SCAN  FOR  01 

01150'000417 

JMP 

COMP 

;01  FOUND 

01151 '125120 

MOVZl 

1.1 

.'LEFT  JUSTIFY  SOME  MORE 

01152 '101100 

MOV'L 

0,0 

01 153 '175400 

INC 

3.3 

.'BUMP  5HIFT  COUNTER 

01 154 '000773 

JMP 

SPOS 

.'CONTINUE  JUSTIFING 

01155*101133  SNE6; 

MOVZLf 

0. 0.  SNC 

.'NEGATIVE.  SCAN  FOR  10 

01 156 '000405 

JMP 

CKIL 

,'10  POUND 

01157*125120 

MOVZL 

1.1 

'.LEFT  JUSTIFY  SOME  MORE 

0116 0' 101 100 

MOV'L 

0.0 

01161 '175400 

INC 

3. 3 

.'BUMP  SHIFT  COUNTER 

01 162 '000773 

JMP 

SNEG 

; CONTINUE  JUSTIFYING 

01163'101034  CKIL: 

MOVZl 

0.0. SZR 

.'IS  IT  LEGAL 

01 164 '000403 

JMP 

COMP 

.'YES.  SO  CONTINUE 

01165 '125400 

INC 

1.1 

.'NO.  50  FORCE  LEGAL 

01 166 '125400 

INC 

1.1 

01167' 101200  COMP; 

MjVR 

0.0 

.'RETURN  TO  B31 

01 170 '125200 

MOVR 

1.1 

01171 '172401 

SUB 

3.2.5KP 

.'FORM  EXP=EXP-f SHIFTS 

011 72 '151220  2R0: 

MOVZR 

2.2 

,'GET  40000  FOR  EXPONENT 
:0F  ZERO  RESULT. 

01 173 '101020 

MOVZ 

0.0 

.'SET  CARRY  TO  0 

01 174 '034732 

L DA 

3.  XRTN 

.'GET  RETURN  ADDRESS 

01 175 '000602 

JMP 

.END 

ENE 

.'GO  STORE  AND  RETURN 
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APPENDIX  D 

Ocean  Model  Print-Out 

Section  1 of  this  appendix  shows  a short  display  print  out  of 
the  three  layer  ocean  model  in  steps  of  100  meters  in  horizontal 
range  from  100  meters  to  10  kilometers.  Section  2 shows  the  same 
ocean  model  run  in  steps  of  500  kilometers  from  1 kilometer  to  100 
kilometers.  Section  3 shows  some  of  this  same  data  in  a long 
display  format  which  presents  more  of  the  intermediate  calculations 
and  helps  in  understanding  the  operation  of  the  program. 

The  short  display  gives  the  ray  path  type,  the  Newton-Raphson 
calculated  horizontal  range,  the  time  delay,  and  gain  for  each 
ray  path  at  a specified  target-sonobuoy  horizontal  range.  The 
value  listed  with  the  XX  ray  type  is  an  average  value  of  propagation 
gain  in  dB  considering  all  the  ray  paths  at  the  horizontal  range 
preceding  it.  The  long  display  gives  additional  information  such 
as  the  derivative  of  the  horizontal  range  with  respect  to  z,  the 
sine  of  the  angle  of  arrival  at  the  sonobuoy,  and  the  value  of  z 
which  the  Newton-Raphson  calculation  found  for  the  ray  path. 
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SECTION  1 


RAY 

PATH 

TYPE 

T 

B 

N 

D 

0. 

4. 

-01. 

0. 

0. 

4. 

00. 

0, 

0. 

4. 

00. 

1. 

0. 

4. 

01. 

0. 

0. 

4. 

01. 

1, 

0. 

4. 

02. 

0, 

0. 

4. 

02. 

1. 

X. 

X. 

00. 

0. 

0. 

4. 

-01. 

0. 

0. 

4. 

00. 

0. 

0. 

4. 

00. 

1. 

0. 

4. 

01. 

0. 

0. 

4. 

01. 

1. 

0. 

4. 

02. 

0. 

0. 

4. 

02. 

1. 

X. 

X. 

00. 

0. 

0. 

4. 

-01. 

0. 

0. 

4. 

00. 

0. 

0. 

4. 

00. 

1. 

0. 

4. 

01. 

0. 

0. 

4, 

01. 

1. 

0. 

4. 

02. 

0. 

0. 

4. 

02. 

1. 

X, 

X. 

00. 

0. 

0. 

4. 

-01. 

0. 

0. 

4. 

00. 

0. 

0. 

4. 

00. 

1. 

0. 

4. 

01. 

0. 

0. 

4. 

01. 

1. 

0. 

4. 

02. 
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-0000085,152908324 
0000007.512954710 
0000007, 700347900 
0000007.559509276 
0000011,625042724 
0000007.743062132 
-0000085.208206176 
0000007,561533696 
0000007, 747726440 
0000007.607742303 
0000011.855941772 
0000007.795166014 
-0000085,263504028 
0000007.610336302 
0000007. 795379638 
0000007,656326292 
0000011 ,687130736 
0000007.842544554 
-0000085,313801873 
0000007.659393310 
0000007, 843383738 
0000007.705093332 
0000011.918624876 
0000007.390197752 
-0000085. 374084472 
0000007.703724974 
0000007.891586302 
0000007.754135130 
0000011.950378416 
0000007,938186644 
-0000085.429336546 
0000007.758300780 
0000007 .940048216 
0000007.803451538 
0000011 ,932432910 
0000007.986373900 
-0000035.484527586 
0000007.308135986 
0000007 .988784790 
0000007,853012084 
0000012.014816284 
0000008.034835814 
-0000085,539703368 
0000007,858230590 
0000008,037765502 
0000007,902616772 
0000012,04 7439574 
0000003 , 033541870 
-0000035,594833374 
0000007,908554076 
0000008 , 087005614 
0000007.952865600 


0,000005640 
0.000027414 
0 , 000000000 
0.000028070 
0.000027408 
0.000027906 
0.000005626 
0,000027244 
0 . 000000000 
0,000027886 
0,000027236 
0,000027724 
0,0000056 12 
0.000027078 
0 , 000000000 
0,000027702 
0.000027066 
0.000027542 
0.000005598 
0.000026910 
0 , 000000000 
0.000027520 
0,000026896 
0,000027364 
0,000005532 
0,000026744 
0 , 000000000 
0.00002 7333 
0,000026723 
0.000027186 
0,00000556 8 
0.000026573 
0 . 000000000 
0.000027153 
0,00002656 2 
0,000027010 
0.00000555 2 
0,000026414 
0 , 000000000 
0,000026980 
0.000026394 
0,000026334 
0.000005538 
0,000026250 
0 , 000000000 
0.000026302 
0.000026230 
0,000026660 
0,000005522 
0,000026088 
0 , 000000000 
0,000026628 
0,000026066 
0.000026488 
0,0000055 08 
0,000025928 
0 , 000000000 
0,000026^52 
0.000025902 
0,000026316 
0.000005492 
0,000025766 
0 , 000000000 
0,000026280 
0,0000257 40  D-ii 

0.000026146 


I k 


0. 

4. 

02. 

0. 

0000009000 , 078124 

0000012,080-3 37524 

0,00000 5478 

0. 

02. 

1. 

0000009000,0 66406 

0000008.132522582 

0.00002 5603 

X. 

X. 

00. 

0. 

0000000000 . 000000 

-0000085.649902342 

0 . 000000000 

0. 

4. 

00. 

0, 

0000009100,039062 

0000007.959121704 

0.000026108 

0. 

4. 

01. 

0. 

0000009100,0 54686 

0000008.136489868 

0.000025580 

0. 

4. 

01. 

1. 

0000009100. 04296S 

0000008,003173828 

0.000025978 

0. 

4. 

02. 

0. 

0000009100.066406 

0000012.113510130 

0.00000 5462 

0. 

4. 

02. 

1, 

0000009100,058592 

0000008.181732176 

0.000025450 

X. 

X. 

00. 

0. 

0000000000.000000 

-0000085,704925536 

0 . 000000000 

0. 

4. 

00. 

0. 

0000009200,031250 

0000008.009933470 

0.000025936 

0. 

4, 

01. 

0. 

0000009200.046374 

0000008,186218260 

0,000025422 

0. 

4, 

01. 

1. 

0000009200.035156 

0000008,053710936 

0,000025810 

0. 

4. 

02. 

0, 

0000009200.058592 

0000012.146957396 

0,000005446 

0. 

4, 

02. 

1. 

0000009200.050780 

0000003.231201170 

0,000025 292 

X. 

X. 

00. 

0. 

0000000000.000000 

-0000085,759902954 

0 , 000000000 

0. 

4, 

00. 

0. 

0000009300 , 02  7342 

0000008,060953362 

0,000025768 

0. 

4 . 

01. 

0. 

0000009 300 . 039062 

0000008.236175536 

0.000025262 

0. 

4. 

01. 

1. 

0000009300 , 031250 

0000008.104461668 

0.000025642 

0. 

4. 

02. 

0. 

0000009300.0507 80 

0000012.180679320 

0.000005432 

0. 

4. 

02. 

1, 

0000009300,0 42968 

0000008.230899046 

0.000025133 

A. 

X. 

00. 

0, 

0000000000,000000 

-0000085,814738813 

0.000000000 

0. 

4. 

00. 

0. 

0000009400.023436 

0000008,112213134 

0.000025600 

0. 
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0000009400.035156 
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0. 
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0000009400.027342 
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0.0000 25478 

0. 

4. 
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0000009400,046874 
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0.000005416 

0. 

4. 
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0000009400,039062 

0000006.330841064 

0.000024932 

X, 

X. 

00. 

0. 

0000000000,000000 

-00000 65.869628906 

0 , 000000000 

0. 

4. 

00. 

0. 

0000009500.019530 

0000008,163696288 

0,000025434 

0. 

4. 
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0000009500,031250 

0000008.336607250 

0.000024950 

0. 
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0000009500,023436 
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0,000025314 

0. 

4. 
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0 , 0000054 00 

0. 

4. 
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X. 

X, 

00. 

0. 

0000000000,000000 

-0000035.924377440 
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0. 
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0. 

0000009 600.015624 
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0. 

4. 
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0.0000247 94 

0. 
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0. 
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0. 
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0.000024678 

X. 

X. 

00. 

0, 

0000000000 , 000000 

-0000085.979064940 

0.000000000 

0, 

4. 

00. 

0, 

0000009 700 , 01 5624 

0000008.2 67303466 

0.000025106 

0. 

. 

01. 

0. 

0000009700.023436 

0000006.438354492 

0.000024640 

0. 

4. 

01, 

1. 

0000009700,015624 

0000006.309768676 

0.00002 4992 

0. 

4. 

02, 

0, 

0000009700.031250 

0000012.318237304 

0,000005370 

0. 

4. 

02. 

1. 

0000009700,023436 

0000006.482025146 

0.000024526 

X. 

X, 

00. 

0. 

0000000000 , 000000 

-0000086,033660888 

0 , 000000000 

0, 

4. 

00. 

0. 

0000009800 .011718 

0000003.319412230 

0,000024942 

0. 

4, 

01. 

0. 

0000009800 , 019530 

0000008,489440916 

0.000024488 

0. 

4 f 

01. 

1. 

0000009800.0 15624 

0000008. 361633300 

0 . 000024830 

0, 

02. 

0. 

0000009800,027342 

0000012,353286742 

0.000005354 

0. 

4. 

02. 

1. 

0000009800 . 023436 

0000008,532867430 

0.0000243 76 

X. 

X. 

00. 

0. 

0000000000 . 000000 

-0000066.088165282 

0.000000000 

0. 

4. 

00. 

0. 

0000009900.01 1718 

0000008,371734618 

0.0000 24762 

0. 

4. 

01. 

0. 

0000009900,015624 

0000003-540756224 

0,000024338 

0. 

4. 

01. 

1. 

0000009900 , 01 1 71 8 

0000008.413696268 

0.000024672 

0. 

4. 

02. 

0. 

0000009900 , 023436 

0000012.388595530 

0.000005338 

0. 

4. 

02, 

1. 

0000009900 , 019550 

0000003.583923338 

0,000024226 

X. 

X. 

00. 

0. 

0000000000 . 000000 

-0000086,142578124 

0 , 000000000 

0. 

4, 

00. 

0. 

0000010000,007812 

0000008, 424255370 

0.000024622 

0. 

4. 

01. 

0. 

0000010000 , 015624 

0000003.592269896 

0,000024186 

0. 

4. 

01. 

1. 

0000010000,011718 

0000003,465957640 

0,000024516 

0. 

4. 

02. 

0. 

0000010000.019 530 

0000012.424143553 

0,00000 5324 

0. 

4. 

02. 

1. 

0000010000,015624 

0000003,635192370 

0,000024078 

X. 

X. 

00. 

0, 

0000000000 . 000000 

-0000036.196399414 

0 . 000000000 

n-12 
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NSWC/WOL/TR  75-115 
SECTION  2 


RAY 

PATH 

TYPE 

T 

B 

N 

D 

0. 

4. 

-01. 

0. 

0. 

4, 

00. 

0. 

0. 

4. 

00. 

1. 

0. 

4. 
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0. 

0. 

4. 

01. 

1. 

0. 

4. 
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0. 

0. 

4. 
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1. 

X. 

X , 

00. 

0. 

0. 

3. 
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0. 

0. 

4. 

00. 

0, 

0. 

4. 
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1. 

0. 

4. 

01. 

0. 

0. 

4. 

01. 

1. 

0. 

4. 
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0. 

0. 

4. 
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1, 

X, 

X. 

00. 

0. 

0. 

3. 
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0. 

0. 

3, 

00, 

1. 

0. 

4. 

00. 

0. 

0, 

4. 

01. 

0. 

0. 

4. 

01. 

1. 

0. 

4. 

02. 

0. 

0. 

4. 

02. 

1. 

X, 

X. 

00. 

0. 

0. 

3. 

-01. 

0. 

0. 

3. 

00. 

1. 

0, 

4. 

00. 

0. 

0. 

4. 

01. 

0. 

0. 

4. 

01. 

1. 

0. 

4. 

02. 

0. 

0. 

4. 

02. 

1. 

X. 

X. 

00. 

0. 

0. 

3, 

-01. 

0. 

0. 

3. 

00. 

1. 

0. 

4. 

00. 

0. 

0. 

4. 

01. 

0. 

0. 

4. 

01. 

1. 

0. 

4. 

02. 

0. 

0. 

4. 

02. 

1. 

X. 

X. 

00. 

0. 

0. 

3. 

-01. 

0. 

0, 

3. 

00. 

1. 

0. 

4. 

00. 

0. 

0. 

4. 

01. 

0. 

0. 

4. 

01, 

1. 

0. 

4. 

02. 

0. 

0. 

4. 

02. 

1. 

X. 

X. 

00. 

0. 

0. 

3. 

-01. 

0. 

3. 

00. 

1. 

0, 

4. 

00. 

0. 

0. 

4. 

01. 

0. 

0. 

4. 

01. 

1. 

0. 

4, 

02. 

0. 

0. 

4. 

02. 

1. 

X. 

X, 

00. 

0. 

0. 

3. 

-01. 

0. 

HORIZONTAL  RANGE 
(METERS) 

0000000  500.253906 

0000000500.261713 

0000000500.269530 
0000000500 , 265624 

0000000500.257312 
0000000500,257612 
0000000500 . 26562*1 
0000000000.000000 

0000001000.2 50000 

0000001000.269530 
0000001000. 347656 
0000001000.2 77342 
0000001000 , 273*136 

0000001000.269530 
0000001000.277342 
0000000000.000000 
0000001500.308592 

0000001500.253906 

0000001500.250000 

0000001500.250000 

0000001500.250000 

0000001500.250000 

0000001500 . 246092 
0000000000.000000 

0000002000.250000 
0000002000.320312 
0000002000.300730 
0000002000,312500 
0000002000.300730 

0000002000.292963 
0000002000.3203 12 
0000000000.000000 
0000002500.324213 

0000002500.250000 

0000002500.253906 

0000002500.253906 

0000002500.253906 

0000002500.246092 

0000002500.257312 
0000000000.000000 

0000003000.253906 

0000003000.246092 

0000003000.250000 

0000003000.250000 

0000003000.250000 

0000003000 . 246092 

0000003000.250000 
0000000000 . 000000 

0000003500.253906 

0000003500.292963 

0000003500.250000 

0000003500 . 250000 

0000003500 . 246092 

0000003500 . 246092 

0000003500.246092 
0000000000 . 000000 
000000 4000.296874 


TIME  DELAY 
(SECONDS) 

0000000 ,349411010 
0000005 . 1 71340942 
0000000.374431200 
0000005.433522338 
0000005.238342234 
0000010.494644164 
0000005.505554198 
-0000051.684600830 
0000000.676631518 
0000005.203430174 
0000000.690429636 
0000005.469146728 
0063005 . 269958496 
0000010.509948730 
0000005.535705566 
-0000057, 354003906 
0000001.008758544 
0000001.018417358 
000000 5.256454466 
0000005.519622802 
0000005.322311400 
0000010.536209106 
000000 5.535556030 
-0000062.061645506 
0000001 . 34 1979980 
0000001 , 349792430 
0000005.329757690 
0000005 . 539523314 
0000005.394729614 
0000010.572921752 
0000005.654678344 
-0000064.361312366 
0000001.675765990 
0000001.682434082 
0000005.422546386 
0000005,678100584 
0000005,436434936 
0000010. 620071410 
000000 5.742263792 
-0000066.463729858 
0000002.009704588 
0000002.01 5777586 
0000005.533859252 
0000005. 784545398 
0000005.596496582 
0000010.677291870 
0000005.347564696 
-0000068.464035034 
0000002.343795776 
0000002.349517822 
000000 5,662567133 
0000005.907852172 
0000005.723815916 
0000010.744593388 
0000005.969589232 
-0000070,442062376 
0000002.677993774 


GAIN 

(AMPLITUDE) 

0.001393212 
0.000040514 
0,001 787336 
0.000038544 
0.0000 40004 
0.000006318 
0.000038080 
0 . 000000000 
0.0009 47302 
0.000040262 
0.0009 67268 
0.0000 38326 
0.000039760 
0.000006303 
0.000037872 
0 . 0000000*.  J 
0.000603150 
0.000502262 
0.000039850 
0,000037970 
0.000039364 
0.000006292 
0.000037530 
0 . 000000000 
0.000421426 
0.000427630 
0.000039296 
0.000037492 
0.000038830 
0.000006270 
0.000037064 
0 . 000000000 
0.000306742 
0,0003 54944 
0.000038614 
0,000036398 
0.000038172 
0,000006242 
0 , 000036492 
0 , 000000000 
0.000226413 
0.000292750 
0,000037 828 
0.000036212 
0.0000 37412 
0.000006208 
0.000035328 
0 , 000000000 
0.0001 65784 
0.000240024 
0.000036956 
0 . 00003 5446 
0.0000 36570 
0.00000616 8 
0.000035086 
0.000000000  D-13 
0.000116742 
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0800004000.250000 
0000004000 . 363280 

0000004000.250000 

0000004000 . 371092 
0000004000. 3632 80 
0000004000. 246032 
0000000000.000000 

0000004500.250000 

0000004500.250000 
0000004500.285156 
0000004500.296874 
0000004500.285156 
0000004500 . 261250 
0000004500 . 2968 74 
0000000000 . 000000 
0000005000 . 457030 
0000005000.367186 

0000005000.257812 
0000005000.261718 
000000 5000.261713 

0000005000.257812 
0000005000 . 265624 
0000000000 , 000000 

0000005500.257812 

0000005500.250000 

0000005500.253906 

0000005500.250000 

0000005500 . 253906 

0000005500.253906 
0000000000 . 000000 

0000006000.246092 

0000006000.250000 

0000006000.250000 

0000006000.250000 

0000006000.250000 

0000006000.250000 
0000000000 . 000000 

0000006500.25 0000 

0000006500.250000 

0000006500 . 250000 

0000006500.24609 2 

0000006500.250000 
0000000000.000000 

0000007000.250000 

0000007000 . 246092 

0000007000.246 092 

0000007000 . 250000 

0000007000 . 250000 
0000000000 . 000000 

0000007500.246092 

0000007500 . 246092 

0000007500.250000 

0000007500.250000 

0000007500.246092 
0000000000 , 000000 

0000008000.250000 

0000008000 . 250000 

0000008000.2 50000 

0000008000 .246092 

0000008000.246092 
0000000000 . 000000 
0000008500.335936 

0000008500.371092 
0000006500.343750 

0000008500 . 24 6092 

0000006500 . 250000 


0000002.633410644 
0000005.807556152 
0000006.047027566 
0000005.367324828 
0000010.321731566 
0000006. 1073 76098 
-0000072.482421874 
0000003.012176512 
0000003.017471312 
0000005.967590332 
0000006.200973510 
0000006.025787352 
0000010 . 908462524 
0000006.259657176 
-0000074.694534300 
0000003.346527098 
0000003.351699823 
0000006 , 141494750 
0000006.368606566 
0000006.193104858 
000001 1 . 004592894 
0000006.425994872 
-0000077.268783566 
0000003.635306274 
0000006.328186034 
0000006 , 548904418 
0000006.383163452 
0000011 . 109878540 
0000006.604751566 
-0000079.458374022 
0000004.020019530 
0000006.526504516 
0000006.740344726 
0000006.579864500 
000001 1 . 224060053 
0000006.795135498 
-0000081 , 995040892 
0000006. 735473632 
0000006.943450926 
0000006.787216186 
000001 1 . 346847534 
0000006.996215820 
-0000084.275619506 
0000006.954086302 
0000007.155833012 
0000007.004257202 
0000011.477996826 
0000007.207077026 
-0000084,547225952 
0000007.131488036 
0000007.377136230 
0000007.230117796 
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0.000000 776 
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0 . 000000740 
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0.000000 732 
0.000000 234 
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0 . 000000726 
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0 . 000000744 
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0.000000 714 
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0.000000232 
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4. 

03, 

1. 

0000096500 , 253906 

0000065.072326660 

0,000000710 

4. 

04. 

0. 

0000096500 . 285156 

0000066 . 159286498 

0.000000280 

4. 

04. 

1. 

0000096 500.250000 

0000065 . 1 2 70294 1 8 

0.000000728 

X, 

00. 

0, 

0000000000.000000 

-00001 16.688018798 

0.000000000 

3. 

02. 

0. 

0000097000 . 265624 

0000065.142349242 

0.000022800 

4. 

02. 

0. 

0000097000 . 371092 

0000065 . 386047362 

0 . 000000698 

4. 

03. 

0, 

0000097000 . 250000 

0000065 . 44041442 8 

0,000000716 

4. 

03. 

1, 

0000097000 . 253906 

0000065 . 400054930 

0,000000704 

4. 

04. 

0. 

0000097000.281250 

0000066 , 482284544 

0.000000278 

4 , 

04. 

1. 

0000097000 . 246092 

0000065 . 454620360 

0,000000 720 

X, 

00. 

0. 

0000000000 , 000000 

-0000092 . 623760986 

0,000000000 

3. 

02, 

0. 

0000097500 . 312500 

0000065 . 476501464 

0,000018620 

4. 

02. 

0. 

0000097500.359374 

0000065 , 713836668 

0,000000690 

4, 

03. 

0. 

0000097500 . 246092 

0000065 . 768066406 

0 , 000000708 

4. 

03. 

1. 

0000097500. 363280 

0000065 . 72 7890014 

0,000000696 

4, 

04. 

0. 

0000097500.277342 

0000066 .80 5374144 

0.0000002 76 

4. 

04. 

1. 

0000097500 . 253906 

0000065 , 732241820 

0,000000714 

X, 

00. 

0. 

0000000000 , 000000 

-000009 4 . 574066162 

0.000000000 

3. 

02. 

0, 

0000098000 . 250000 

0000065 , 8 1 0623 168 

0,000015960 

3. 

03. 

i , 

0000098000.273436 

0000065 , 81 6055296 

0.000026632 

4. 

02. 

0. 

0000098000 , 351562 

0000066 . 041656494 

0.000000684 

4. 

03. 

0. 

0000098000,250000 

0000066 , 095 764 1 60 

0 , 000000702 

4, 

03. 

1. 

0000098000 . 351562 

0000066 . 055664062 

0 . 000000688 

4. 

04. 

0. 

0000098000 , 2 734 36 

0000067, 128555296 

0.0000002 74 

4. 

04, 

1. 

0000098000 , 253906 

0000066 . 109893798 

0,000000706 

X , 

00, 

0, 

0000000000 . 000000 

-0000090. 149398802 

0.000000000 

3. 

02. 

0, 

0000098500 ,257812 

0000066 , 144805908 

0.0000137 92 

3. 

03. 

1. 

0000098500 . 250000 

0000066, 150131224 

0.000019844 

4. 

02. 

0. 

0000098500 , 335936 

0000066 , 369491576 

0 . 000000676 

4, 

03. 

0. 

0000098500.367186 

0000066 . 423568724 

0,000000694 

4. 

03. 

1. 

0000098 500.347656 

0000066 . 383483886 

0 , 000000680 

4. 

04. 

0. 

0000098 500 , 2 73436 

000006 7 . 45 1 8 1 2 744 

0,000000272 

4. 

04. 

1. 

0000098500 . 253906 

0000066 , 437591552 

0.000000698 

X, 

00. 

0, 

0000000000 , 000000 

-0000092 . 320907592 

0.000000000 

3. 

02. 

0, 

0000099000 . 253906 

0000066 . 479003906 

0.000011852 

3. 

03. 

1. 

0000099000 . 25 781 2 

0000066 , 484283446 

0.000016966 

4. 

02. 

0. 

0000099003 ,328124 

0000066 , 697372436 

0 , 000000668 

4. 

03. 

0, 

0000099000, 359374 

0000066.751312254 

0 . 000000 688 

4, 

03. 

1, 

0000099000 . 339842 

0000066 . 711349466 

0 . 000000674 

4. 

04. 

0. 

0000099003 , 2 73436 

0000067.775161742 

0,000000270 

4, 

04. 

1. 

0000099000 , 371092 

0000066 , 765396 113 

0 , 000000692 

X, 

00, 

0. 

0000000000 . 000000 

-0000093 , 662063598 

0 . 000000000 

3, 

02. 

0. 

0000099503 , 246092 

0000066 . S 1 0699462 

0,000015330 

3, 

02. 

0. 

0000099500 . 292968 

0000066 . 813232420 

0,000010008 

3. 

03. 

1, 

0000099500 , 253906 

0000066 , 818450926 

0,000014 734 

4, 

02. 

0. 

0000099500,320312 

0000067 , 025283812 

0 . 000000662 

4. 

03. 

0. 

0000099500 , 343750 

0000067  399101562 

0,000000680 

4, 

03. 

1. 

0000099 500.332030 

0000067. 039230346 

0 , 000000 666 

4. 

04. 

0. 

0000099 500 . 269530 

0000068 , 098602294 

0 . 000000268 

4. 

04, 

1. 

0000099500 . 359374 

000006 7 . 093 1 54906 

0 . 000000684 

X. 

00, 

0. 

0000000000 . 000000 

-0000092 , 562896728 

0 , 000000000 

3, 

02, 

0. 

0000100000 , 246092 

0000067, 144165038 

0.000014814 

3. 

02, 

0. 

0000100000 , 304686 

0000067, 147460936 

0,000008164 

3. 

03, 

1. 

0030 1 00000 ,246092 

0000067 , 150955200 

0.000016050 

3. 

03, 

1. 

0000 1 00000 , 25 78 1 2 

0000067, 152648924 

0. 000012782 

4. 

02. 

0. 

00001 00000 ,316406 

0000067 . 353240966 

0 . 000000654 

4. 

03, 

0. 

0006100000, 339842 

000006  7 , 40692 1 386 

0.0000006 74 

4. 

03 , 

I r 

0000100000 . 320312 

0000067.367141722 

0 . 000000660 

4, 

04. 

S, 

00001 00000 , 265624 

0000062 , 4221 19140 

0,0000002 68 

4. 

04. 

1. 

0000100030,347656 

0000067 . 420944212 

0.000000678 

X, 

00. 

Ut 

0000000000 , 000000 

-0000091 . 493591 308 

0 , 000000000 
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SECTION  3 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  3.  -01.  0. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE) 

0000001 458 , 593750  -0000000034. 9051 £6630  0,356600360 

PREVIOUS  RANGE  TIME  DELAY  CAIN 

0000002099 . 996092  000000 1.408538818  0.000394674 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  3.  00.  1. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN(ANGLE) 
0000001504.148436  -0000000101.844309830  0.990916944 

PREVIOUS  RANGE _ TIME  DELAY  GAIN 

0000000100.039060  0000001,416076660  0.000410404 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4,  00.  0. 

PREVIOUS  7 PREVIOUS  DERIVATIVE  S INI ANGLES 

0000005740.010936  -0000000000.390578104  0.060091148 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000000100.031050  0000005,346755930  0.000039170 


00,  TOP  BOTTOM  CYCLES  'SECTOR 
0.  4.  01,  0, 

PREVIOUS  2 PREVIOUS  DERIVATIVE  S INI ANGLE) 
0000006 01 7 . 137500  -0000000000 , 370190380  0 . 0430054 60 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000000 1 00 . 035060  0000005 . 605 71 0890  0 . 00003 7380 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  01.  1. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE) 

0000005310.757310  -0000000000.387083304  0.0570030 IS 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000000100.031050  0000005 . 11 1 1 525540  0.0000337 08 


00,  TOP  bottom  cycles  vector 
0,  4.  02,  0, 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE I 
0000011362.117136  -0000000000.183125610  0.131445524 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002100.023436  0000010,531553226  0,000006264 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  02,  1, 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN(ANGLE) 
0000006035,953124  -0000000000.367431640  0.245400968 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002100.042963  0000005.670700072  0.000036960 


00,  TOP  BOTTOM  CYCLES  VECTOR 
X.  X.  00,  0. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE! 

0000000000.000000  0000000000.000000000  0,000000000 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000000000 . 000000  -0000064 , 792 724608  0 , 000000000 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  3.  -01.  0. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN(ANGLE) 
0000001 493.265624  -0000000329.641052246  0,996818006 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002200 . 000000  0000001 . 4 75265502  0 . 0003 70048 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  3.  00,  1. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  S INI  ANGLE) 

0000001503.234374  -0000000117,455734252  0.993520966 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002200 , 019530  0000001 . 482559204  0 . 0003974 74 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  00.  0. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  S INI  ANGLE) 

0000005499. 484374  -0000000000,432296752  0,271570660 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002200.019530  0000005,364547723  0.0000390 38 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  01.  0. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE) 

000000576 1.132812  -0000000000.409713744  0.259237012 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002200. 023436  0000005. 5221 11180  0.000037266 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  01.  1. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SlNl * GLE) 
0000005564 . 695312  -0000000000 . 4264221 1 8 0,26^38286 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002200 , 019530  0000005 . 429122924  0 . 000038580 


00.  TOP  BOTTOM 
0.  4. 


CYCLES  VECTOR 

02.  0. 


PREVIOUS  2 
0000010354.353124 


PREVIOUS  DERIVATIVE 
-0000000000 , 206634520 


SIN (ANGLE) 
0.137586862 


PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002200 , 015624  0000010,590439876  0.000006258 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4,  02,  1, 


/ 


PREVIOUS  2 
0000005826.573124 

PREVIOUS  RANGE 
0000002200.02 7342 


00,  TOP  BOTTOM 
X,  X, 

PREVIOUS  2 
0000000000.000000 

PREVIOUS  RANGE 
0000000000.000000 


00,  TOP  BOTTOM 
0.  3, 

PREVIOUS  2 
0000001497,984374 

PREVIOUS  RANGE 
0000002300 , 000000 


PREVIOUS  DERIVATIVE  SIN (ANGLE I 
-0000000000 , 404449462  0 . 256325273 

TIME  DELAY  GAIN 

0000005 . 68 7500000  0 , 000036848 


CYCLES  VECTOR 

00.  0, 

PREVIOUS  DERIVATIVE  S INC ANGLE) 

0000000000 . 000000000  0 , 000000000 

TIME  DELAY  GAIN 

- 0000065 , 2 1 8505858  0 . 000000000 


CYCLES  VECTOR 

-01.  0. 

PREVIOUS  DERIVATIVE  S INC ANGLE) 

-0000000379, 424057006  0. 997006242 

TIME  DELAY  GAIN 

0000001 , 542022 704  0 . 00034 7344 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  3.  00.  1. 


PREVIOUS  2 PREVIOUS  DERIVATIVE  5 IN (ANGLO) 
0000001 502.437500  -0000000134. 701660156  0.594046310 


PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002300.007 312  0000001.549102732  0.000332890 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4,  00,  0. 


PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE) 
0000005273,601562  -0000000000,474121092  0,232934436 


PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002300.011713  0000005.333117674  0.000033902 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  01.  0, 


PREVIOUS  2 PREVIOUS  DERIVATIVE  5 IN (ANGLE) 

0000005528 . 046874  -0000000000.449213750  0.270167510 


PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002300,015624  0000005.640426634  0,00003714 3 


00,  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  01,  1. 


PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE) 
0000005340,765624  -0000000000,467636103  0.279641342 


PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002300.007812  0000005,447443730  0,000038450 


00,  TOP  BOTTOM  CYCLES  VECTOR 
0.  4,  02.  0, 


PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE) 
0000010392 ,257812  -0000000000,226043700  0,1 43712740 


PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002300,007312  0000010.599975534  0.0000062 52 


00,  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  02,  1. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE) 
0000005590,453124  -0000000000.443405150  0,267151823 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002300,015624  0000005.70503234 8 0,000036734 


00.  TOP  BOTTOM  CYCLES  VECTOR 
X,  X.  00.  0. 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN (ANGLE) 

0000000000 , 000000  0000000000 , 000000000  0 , 000000000 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000000000,000000  -0000065 . 638305664  0.000000000 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  3.  -01.  0, 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN l ANGLE' 

0000001437.734374  -0000000434.74232 4828  0.357170212 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002400.000000  0000001,606775306  0,000326328 


00.  TOP  BOTTOM  CYCLES  VECTOR 


3. 


Ms.', 


1, 


PREVIOUS  2 _ PREVIOUS  DERIVATIVE  SlNi ANGLE) 

0000001501,742186  -0000000 153,635325560  0,334506568 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002400,003306  0000001 ,615661620  0.000368718 


00,  TOP  BOTTOM  CYCLES  VECTOR 


0. 


4. 


Ms/, 


0, 


PREVIOUS  Z _ PREVIOUS  DERIVATIVE  S INI  ANGLE) 

0000005076 , 623124  -0000000000,518081664  0.234173386 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002400 , 007812  0000005,402435302  0,000038760 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  01.  0, 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN I ANGLE I 

0000005315.062500  -0000000000,430722656  0,280333782 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002400,011718  0000005,658874510  0,000037026 


00,  TOP  BOTTOM  CYCLES  VECTOR 
0.  4.  01.  1. 

PREVIOUS 2 PREVIOUS  DERIVATIVE  S INI ANGLE) 
0000005136. 187500  -0000000000, 510371063  0,230773576 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002400,007812  0000005.466552734  0.000038314 


00.  TOP  BOTTOM  CYCLES  VECTOR 
0.  9.  02,  0. 


PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN(ANGLE) 
0000009968 , 507812  -0000000000.296353 143  0,199821800 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002900,003906  0000010,609802296  0.000006293 


00,  TOP  BOTTOM  CYCLES  VECTOR 
0.  9.  02.  1, 

PREVIOUS  2 PREVIOUS  DERIVATIVE  SIN I ANGLE) 

0000005379 .669062  -0000000000.989399982  0,277377936 

PREVIOUS  RANGE  TIME  DELAY  GAIN 

0000002900,007312  0000005,723266600  0,000036616 
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